Задумано некоторое число х (х<100). Известны числа k,m,n - остатки от деление этого числа на 3, 5, 7. Решите задачу через repeat until
Ответы
Ответ дал:
0
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
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
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад