Ответ:
Объяснение:
var
x, y:real;
begin
//x:=5;
readln(x);
if (x < -1) then y:=x+2;
if ((x >= -1) and (x <= 2)) then y:=x*x;
if (x > 2) then y:=6-x;
writeln(y);
end.
1)
1⁸1⁷1⁶0⁵1⁴0³1²0¹0⁰₂ = 0 * 2^{0} + 0 * 2^{1} + 1 * 2^{2} + 0 * 2^{3} + 1 * 2^{4} + 0 * 2^{5} + 1 * 2^{6} + 1 * 2^{7} + 1 * 2^{8} = 0 + 0 + 4 + 0 + 16 + 0 + 64 + 128 + 256 = 468₁₀
2)
1B₁₆ =
У 16 счет немного другой: 0123456789ABCDEF (в 10)
A = 10, B = 11, C = 12, D = 13, E = 14, F = 15
Сделай её в программе, в которой вам сказал учитель, нажми в меню программы файл, потом нажми сохранить как и выбери место (флешку), где нужно сохранить файл
_________________________
Program pr;
uses crt;
Var a, x:integer;
Begin
Writeln('Vvedite chislo');
readln(a);
x:=a mod 10;
if x mod 2=0
then Writeln('Chotnoe')
else Writeln('ne chotnoe');
readln;
end.