Определить первое целое число после 145, которое делиться на 13 и 23. в паскаль
Var x:integer;
begin
x:=145;
repeat
x:=x+1;
until (x mod 13=0) and (x mod 23=0);
writeln(x);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var x:integer;
begin
x:=145;
repeat
x:=x+1;
until (x mod 13=0) and (x mod 23=0);
writeln(x);
end.