Написать программу на языке pascal которая вводит первых 50 членов арифметической прогрессии. .

маша200620 маша200620    3   20.09.2019 05:20    0

Ответы
anastasia1medvedeva anastasia1medvedeva  08.10.2020 03:54
Var a: array [1..50] of integer ;
d:integer; 

begin
write ('Введите первый член  a1 = ');
read(a[1]);
write('Разность  d = ');
read(d);
writeln(a[1]);
for var i:=2 to 50 do begin   
a[i]:=a[1]+d*(i-1);   
writeln(a[i]);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика