Найдите любое трёхзначные число, кратное заданному Р и не равное ему

[yuliya.al18]

Найдите любое трёхзначные число, кратное заданному Р и не равное ему. С помощью циклов "пока" или "пока не"
Заранее спасибо

[ZX Spectrum-128]

var
  p, i: integer;

begin
  i := 100;
  readln(p);
  while i < 1000 do
  begin
    if (i mod p = 0) and (i <> p) then
      write(i, ' ');
    inc(i);  
  end;
end.

[Аватар]

Можно и не перебирать от 100 до 1000, а умножать от 1 до 100 и пока произведение по модулю не станет больше 99. Учесть, что р может быть <=0

Кстати если исходное однозначное, то просто * 100, двузначное * 10, в остальных случаях * 2, последнее проверить, что результат 3-значный. Но это без циклов ))

[evg_m]

исходное однозначное, то просто * 100

P=9 9*100 =900 9*12=108

[Аватар]

P=9 9*100 =900 9*12=108

А какая разница? Речь шла о любом, а не о минимальном