Напишите программу, которая в последовательности - вопрос №15744200 от FurtiFool 26.01.2021 18:29

Question

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

FurtiFool · 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.Объяснение:...