Найти сумму чётных чисел в интервале [от1 до 50] - вопрос №5032395150 от НастяяКисаа 28.01.2022 14:15

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....