Регистрация
Tanecka2501
14.03.2022 04:26
Информатика
Есть ответ 👍

Вывести в столбик четные целые числа диапазона [а; в]

237
488
Посмотреть ответы 1

Ответы на вопрос:

KopiYT
KopiYT
4,7(94 оценок)

ответ:

program nok;

var

  a, b, i: integer;

begin

  write ('введите 2 числа: ');

  readln (a, b);

  if a < b then

    i : = a

  else

    i : = b;

  repeat

    inc (i);

  until (i mod a = 0) and (i mod b = 0);

  writeln ('нок = ', i);

  readln;

end.

Популярно: Информатика