Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
For2
program HelloWorld; var i:Integer; begin for i:=100 to 999 do begin if (i*i mod 10=i*i div 10 mod 10)and(i*i mod 10=i*i div 100 mod 10)and not(i mod 10=0) then Writeln(i); end; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Task 3a
basketball_player_training
test22
1º Questão - VS - 1º Semestre 2017
Primo1
Llenar un arreglo (con for)
Tableau
Количество пар кр и не кр 11 оптимизированное с логикой
asdfa
1046
Please log in to post a comment.