Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Грицанова, стр. 26, Пример 1.7
//fpc 3.0.0 program HelloWorld; var n, k : integer; begin readln(n); k := n; if n = 1 then writeln (n); while n > 0 do begin if n mod 2 = 0 then n := n div 2 else n := -1; if n = 1 then begin n := 0; writeln('Число ', k, ' является степенью двойки'); end else begin n := 0; writeln('Число ', k, ' не является степенью двойки'); end; end; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
nested for loop a(ii)
Macintosh HD/Users/aleksej/Downloads/132.docx
1
zadacha6
Zad 3 b
TanTai11A2@
Régua Para tanque cilindrico horizontal
floor and ceiling
shift array to left
5 2 8
Please log in to post a comment.