Задача 12 Урок 13.1
Primary tabs
{13.1 — 12 Пользователь вводит четное целое число (если нечетное сообщите об ошибке).
Делите это число в цикле на 2 до тех пор пока оно делится,
выводя каждый промежуточный результат}
var a: integer; begin repeat writeln('write odd num'); read(a); if (a<=0) then break; if (a mod 2 = 0) then repeat a:= a div 2; writeln(a); until (a mod 2 = 1) else writeln('error: num is not odd'); until(a=0); readln; end.
- Log in to post comments
- 1047 reads
vedro-compota
Sat, 05/15/2021 - 16:42
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)