Паскаль. найти сумму четных чисел от 15 до 100.

KotyaSuper11 KotyaSuper11    1   28.09.2019 18:50    0

Ответы
katy244 katy244  09.10.2020 01:08

var

 i, k: integer;

begin

 k := 0;

 for i:=15 to 100 do if i mod 2 = 0 then k:=k+i;

 write(k);

end.

ПОКАЗАТЬ ОТВЕТЫ
2346573920316 2346573920316  09.10.2020 01:08

begin

 Range(15, 100).Where(el -> el.IsEven).Sum.Println;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика