Question

50 баллов. если хотитте просто ответ Какое число необходимо подать на вход программе, чтобы бы-
ло выведено число 5311?

var n:integer;
begin
readln(n);
writeln(n div 200 mod 20*1000 + n div 10 mod 10*100 +
+ n mod 10*15 + n div 1000)
end.

Answer 1

Ответ:

21026; 21126; 81022; 81122

Объяснение:

var n:integer;

begin

for n:=1 to 100000 do

 if (n div 200 mod 20*1000 + n div 10 mod 10*100 +

+ n mod 10*15 + n div 1000) = 5311 then writeln(n);

end.