Напишите программу, которая в последовательности - вопрос №15744368 от DiModDi 06.06.2020 14:19

Question

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

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