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.
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.