Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
For7
program HelloWorld; var i:Integer; begin for i:=100 to 999 do begin if ((i div 100+i div 10 mod 10+i mod 10) mod 7=0)and(i mod 7=0) then Writeln(i); end; end.
run
|
edit
|
history
|
help
0
practica 2 ejercicio 5
Hailstone number
Prvi zadatak vezbe pokazivaci
zadanye 3 a
For4
nomer4
zad27-notoptimal
zad27-optimal
135
08 ariketa