Как записать арифметическую прогрессию - 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.25 из 5
Похожие ответы