дана арифметическая прогрессия из N членов.Число элементов N,1-й элемент а1 и разность d задаются с клавитуры.Вывести все члены прогрессии на экран и вычислить сумму элементов прогрессии,значение которых меньше пяти.Решить задачу тремя способами.прошу помогите я буду очень благодарен.
Ответы
Ответ дал:
0
var
a: array [1..255] of integer;
i, n, d, a1: integer;
begin
writeln('n, d, a1');
read(n, d, a1);
a[1]:=a1;
for i:=2 to n do a[i]:=a[i-1]+d;
a1:=0;
for i:= 1 to n do if a[i]<5 then a1:=a1+a[i];
writeln('summa:', a1);
for i:=1 to n do write(a[i], ' ')
end.
a: array [1..255] of integer;
i, n, d, a1: integer;
begin
writeln('n, d, a1');
read(n, d, a1);
a[1]:=a1;
for i:=2 to n do a[i]:=a[i-1]+d;
a1:=0;
for i:= 1 to n do if a[i]<5 then a1:=a1+a[i];
writeln('summa:', a1);
for i:=1 to n do write(a[i], ' ')
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад