Составить программу, которая находит минимальное натуральное число х, такое, что остаток...

Question

Составить программу, которая находит минимальное натуральное число х, такое, что остаток от деления х на 10 равен 9, остаток от деления х на 9 равен 8, остаток от деления х на 8 равен 7, … остаток от деления х на 2 равен 1.
В ответе запишите найденное число без пробелов и знаков препинания.

Answer 1

Var a,b:integer;
begina:=1;
while b=0 do
begin
if (a mod 10=9) and (a mod 9=8) and (a mod 8=7) and (a mod 7=6) and (a mod 6=5) and (a mod 5=4) and (a mod 4=3) and (a mod 3=2) and (a mod 2=1)  and (a mod 1=0) then
begin
b:=a;
end;
a:=a+1;
end;
write(b);
end.

Comments

Не проверял это число, но должно быть все правильно

---

какое число написать в ответе?

---

2519

---

Спасибо!!!!