Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Грицанова, стр. 26, пример 1.7
//fpc 3.0.0 program HelloWorld; var n, k : integer; begin readln(n); k := n; while n > 0 do begin if n mod 2 = 0 then n := n div 2 else if n = 1 then begin writeln('Число ', k, ' является степенью двойки'); n := 0; end else begin writeln('Число ', k, ' не является степенью двойки'); n := 0; end; end; end.
run
|
edit
|
history
|
help
0
pascal sizeof
PrimoPerfecto
6
Решето Эратосфена
matriza
Номер подъезда и этажа по номеру квартиры, количеству этажей и квартир на этаже
String compare
homework
LUIZ ANTONIO RANGEL MUNIZ 60061122
129