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

[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

[klem4]

по поводу "цикл без параметра" не понял, но решал бы вот так :

uses crt;
var
   n,p : integer;
begin
   clrscr;
   write('p = '); readln(p);
   n := 99;
   repeat
      inc(n);
   until ((n <> p) and (n mod p = 0)) or (n = 999);
   if n < 999 then
    writeln(n)
   else writeln('no');
   readln;
end.

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