Составьте программу для вычисления суммы всех четных чисел от 6 до 36 паскаль

DianaDi1111111 DianaDi1111111    1   05.05.2020 23:45    1

Ответы
ilja2099 ilja2099  14.10.2020 07:56

var i, s: integer; 

begin 

s:=0; 

for i:=6 to 36 do 

if (i mod 2 = 0) then s:=s+i; 

end;

ПОКАЗАТЬ ОТВЕТЫ
34Марго35 34Марго35  14.10.2020 07:56

begin

 (6..36).Step(2).Sum.Print

end.


Составьте программу для вычисления суммы всех четных чисел от 6 до 36 паскаль
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика