Задание:
Составить прграмму с командой 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.
Знаете другой ответ?
Составить прграмму с командой 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.
Знаете другой ответ?