Как записать арифметическую прогрессию - Turbo Pascal

Формулировка задачи:

как записать арифметическую прогрессию в Турбо Паскале.

Код к задаче: «Как записать арифметическую прогрессию - Turbo Pascal»

textual
var
  a1,h,n,i: integer;
begin
  write('Ââåäèòå 1-Г© ÷ëåГ* ïîñëåäîâГ*òåëüГ*îñòè: ');
  readln(a1);
  write('Ââåäèòå ГёГ*ГЈ: ');
  readln(h);
  write('Ñêîëüêî ýëåìåГ*òîâ âûâîäèòü? ');
  readln(n);
  for i:=1 to n do
  begin
    write(a1,' ');
    a1:=a1+h;
  end;
end.

12   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ