Ответ:
program qwerty;
var i: integer;
begin
for i:=100 to 1000 do
if ((i div 100)<>((i div 10) mod 10)) and ((i div 100)<>(i mod 10)) and ((i mod 10)<>((i div 10) mod 10))
then writeln(i);
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program qwerty;
var i: integer;
begin
for i:=100 to 1000 do
if ((i div 100)<>((i div 10) mod 10)) and ((i div 100)<>(i mod 10)) and ((i mod 10)<>((i div 10) mod 10))
then writeln(i);
end.
Объяснение: