Напишите программу, которая в последовательности натуральных - вопрос №15744702 от даниил853 21.03.2022 14:20

Question

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

даниил853 · 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.Объяснение:...