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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник