Напечатать минимальное число, большее N, которое нацело делится ** K, где N и K, вводятся...

Question

Напечатать минимальное число, большее N, которое нацело делится на K, где N и K, вводятся с клавиатуры.

Comments

(Pascal ABC)

Answer 1

Var
  n, k: integer;
begin
  Write('Введите числа N и K: '); Readln(n,k);
  Writeln('Найденное число равно ',((n div k)+1)*k)
end.

Тестовое решение:
Введите числа N и K: 297 19
Найденное число равно 304