Среди трёхзначных чисел найти все числа кратные 2 и 7 и выведите их в паскале напишите программу

arinaschool1 arinaschool1    2   22.09.2019 12:20    0

Ответы
Five11111 Five11111  27.08.2020 01:49
Var i: integer;
begin
for i := 100 to 999 do
  if ((i mod 2 = 0) and (i mod 7 = 0)) then
    writeln(i);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика