Как записать арифметическую прогрессию - 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.