Составить прграмму с командой while для решения задачи: Найти сумму 1+3+5+7+9...+31.
Составить прграмму с командой while для решения задачи: Найти сумму 1+3+5+7+9...+31.
Гость
Ответ(ы) на вопрос:
ГостьVar x,s:integer;
Begin
s:=0;
x:=1;
while x<=31 do
begin
s:=s+x;
x:=x+2;
end;
writeln('S=',s);
End.
Не нашли ответ?
Похожие вопросы