Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Registracioni broj firme
program registracijafirme; const c=7; var br,sum,i:integer; begin writeln('Unesite broj registracije'); readln(br); if(br<10000) or (br>30000) then writeln('Neispravan unos!') else begin sum:=0; for i:=0 to 5 do begin sum:=sum+(br mod 10); br:=br div 10 end; if(sum mod 7=0) then writeln('Ispravan!') else writeln('Neispravan!') end end.
run
|
edit
|
history
|
help
0
eliminar elementos de un arreglo
Lab3Factorial
right angle triangle
факторизация числа
binary_search-бинарный_поиск
b1
SudokuSolver
Kim
Unicorn
TAIRINE GOMES NEPOUMUCENO 600624521