Задача 12 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{Пользователь вводит четное целое число (если нечетное сообщите об ошибке).
Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат,
например для 12 в консоли получим:
6
3
А для 8:
4
2
1
}
program task12_lesson13_1; var a : integer; begin writeln('Enter even Number :'); readln(a); if ((a mod 2) = 1) then writeln('ERROR') else while ((a mod 2) = 0) do begin writeln(a div 2); a := (a div 2); end; readln(); end.
- Log in to post comments
- 692 reads