Составить программу для вычисления суммы ряда (pascal ABC)1+3+5+7...+n
Составить программу для вычисления суммы ряда (pascal ABC)
1+3+5+7...+n
Гость
Ответ(ы) на вопрос:
Гостьprogram chik;
var n,s,i:longint;
begin
read(n);
i:=-1;
s:=0;
while i<=n do
begin
i:=i+2;
s:=s+i;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы