Цикл без параметра, Задача зациклилась Опции

[TanyaH]

Найти любое трехзначное число кратное P и не равное ему (цикл без параметра).

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.

Теги !

Сообщение отредактировано: volvo - 7.11.2006 18:12