СРОЧНО!!!! Составьте блок-схему и алгоритм к задаче. Найти сумму 100 чисел последоват
СРОЧНО!!!! Составьте блок-схему и алгоритм к задаче. Найти сумму 100 чисел последовательности 1,5,9,13,17,....
Гость
Ответ(ы) на вопрос:
Гость 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
Не нашли ответ?
Похожие вопросы