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

[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 22:12

[Студентик13]

А че на до то?

uses 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);
readln;
end;
end.

Вот теперь работает, синтаксис проверяй!

Сообщение отредактировано: Студентик13 - 13.01.2006 15:44

[volvo]

Студентик13, компилируется - еще не значит, что работает... Я попросил бы все-таки соблюдать вот это:

7. Проверяйте программы перед тем, как запостить их!!!

[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 22:13