Найти сумму чётных чисел в интервале [от1 до 50] (паскаль) - вопрос №5032395150 от ЯРОСЛАФ 14.01.2023 06:32

Question

Информатика: Найти сумму чётных чисел в интервале [от1 до 50] (паскаль)

ЯРОСЛАФ · Answer

Var a,i:integer;    begin    for i:=1 to 50 do      if i  mod 2 = 0 then       a:=a+i;    writeln(a);   end....