Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
A B
1 6 3
2 =A1+B1 =A1/B1
1 6 3
2 3 2
1 2 3
2 5 0,666667
1 2 4
2 6 0,5
От 0 до 8(включительно)
0 1 2 3 4 5 6 7 8 - 9 цифр
Ммм, если ты нигде не ошибся, то цикл не выполнится и программа выведет только девятку, которая перед этим самым циклом стоит
11 девочек м 10 мальчиков.
<span>1011= 1*2^3+0*2^2+1*2^1+1*2^0=8+0+2+1=11
</span>1010= 1*2^3+0*2^2+1*2^1+0*2^0=8+0+2+0=10