Question

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

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