Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
For3
program HelloWorld; var i:Integer; begin for i:=1000 to 9999 do begin if not((i mod 10=i div 10 mod 10)or(i mod 10=i div 100 mod 10)or(i mod 10=i div 1000 mod 10)or(i div 10 mod 10=i div 100 mod 10)or(i div 10 mod 10=i div 1000 mod 10)or(i div 100 mod 10=i div 1000 mod 10)) then Writeln(i); end; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
solar_system_n_planets_any_time
kiem_tra_nguyen_to
Huong11a2@
computer-numbers
Сумма цифр в строке
corza71
a 3 .b
TAPCON
Урок 4 задача 4: решить в целых числах уравнение ax=b
Different numbers in array
Please log in to post a comment.