Напишите программу, которая в последовательности - вопрос №15744025 от EvaMilka 09.09.2021 21:18

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет количество и сумму всех чисел, кратных 7 и оканчивающихся на 2.

EvaMilka · Answer

Program M1;  var s,x:integer;  begin  s:=0;  x:=1;  while x 0 do  begin  read(x);  if (x mod 7=0) and (i mod 10=0) then s:=x+s;  end;  writeln( summa= ,s);  end.Объяснение:...