Задумано некоторое число х (х<100). Известны числа k, m, n - остатки от деление этого числа на 3, 5, 7. Решите задачу через repeat until

Question

Информатика

Петруся

15 ноября, 21:12

Задумано некоторое число х (х<100). Известны числа k, m, n - остатки от деление этого числа на 3, 5, 7. Решите задачу через repeat until

+2

Ответы (1)

Знаете ответ на вопрос?

Максимка · Answer 1

Var x, k, m, n:integer;

begin

readln (k, m, n) ;

x:=0;

repeat

x:=x+1;

until (x mod 3 = k) and (x mod 5 = m) and (x mod 7 = n) and (x<100) ;

if x<100 then writeln (x) else writeln ('Ошибка ввода') ;

end.

Пример:

0 3 6

48