Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Цикл без параметра

Автор: TanyaH 13.01.2006 15:37

Найти любое трехзначное число кратное 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.


Теги !

Автор: Студентик13 13.01.2006 15:42

А че на до то?

Цитата
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.

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

Автор: volvo 13.01.2006 17:53

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

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

Автор: klem4 13.01.2006 18:42

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

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.