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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

аа понятно