Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.
Var x, y:real;
begin
Readln (x);
If x < 0 then y:=x*x-3*x
else y:=5*x-x*x;
Writeln (y);
end.
Десятичная Двоичная восьмеричная шестнадцатеричная
0 0 0 0
1 1 1 1
2 10 2 2
3 11 3 3
4 100 4 4
5 101 5 5
6 110 6 6
7 111 7 7
8 1000 10 8
9 1001 11 9
10 1010 12 А (если в двоичной системе цифра 16, то в шестнадцатеричной 10, если 17, то 11 и так далее)
⇒⇒βω·⇔в повер поинт презентация или что