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

@бондарик · Регистрация: 08.10.2013

Author24 — интернет-сервис помощи студентам

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

@ermolay · 14.01.2014, 20:16

например так:

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.

@бондарик 0 / 0 / 0 Регистрация: 08.10.2013 Сообщений: 18
		1
	Как записать арифметическую прогрессию 14.01.2014, 19:07. Показов 1532. Ответов 1 Метки нет (Все метки) как записать арифметическую прогрессию в Турбо Паскале. 0

	14.01.2014, 20:16

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

Решение