Maab
6 год назад
СРОЧНО!!!! Составьте блок-схему и алгоритм к задаче. Найти сумму 100 чисел последовательности 1,5,9,13,17,....
ОТВЕТЫ
Елизарович
Aug 5, 2019
Var a,s,i:integer;
begin
a:=1-4;
s:=0;
for i:=1 to 100 do
begin
a:=a+4;
s:=s+a;
end;
writeln(s = ,s);
end.
Результат:
s = 19900
begin
a:=1-4;
s:=0;
for i:=1 to 100 do
begin
a:=a+4;
s:=s+a;
end;
writeln(s = ,s);
end.
Результат:
s = 19900
274
