program p3;
user crt;
var
p;k;l: integer;
begin
ClrScr;
write('Вводите число-> ');
readln(p); {вводим число}
k:=0;
l:=100;
While (l<1000) or (k>p)do begin
if (l/p)= trunc(l/p) then k:=l;
l:= l+1;
If k=0
then write('нет трехзначного числа кратного заданному');
else
write('число ');
write(k);
write('кратно заданному числу ');
write(p);
end;
end.
Теги !