20 mod x = 20 div x Найти x через Паскаль(составить программу)! ответ:9,19

Question

20 mod x = 20 div x Найти x через Паскаль(составить программу)! ответ:9,19

Answer 1

Program eq;
uses crt;
var x: integer;
begin
for x:=1 to 20 do if (20 mod x)=(20 div x) then writeln(x);
readln;
end.

Пояснение, почему значение x взято  до 20. Дело в том, что после 20 результат ф-ции 20 mod x всегда будет равен 20, а ф-ции 20 div x всегда будет равен 0.

Comments

ох спасибо, я почти то же самое создал, только не учёл одну мелочь

---

А какую именно?

---

(20 mod x)=(20 div x) и да там ридлн в конце не нужен и юзез в начале

---

А это по привычке с досовского паскаля )

---

аа понятно