Ответ под номером 4, "Мой компьютер"
Var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.
Пример:
x = -5
y = -1
Заходишь во вкладку "Вставка"
Нажимаешь Фигуры Выбираешь прямоугольник с круглыми углами .
Делаешь эту фигуру на листе , дальше заходишь во вкладку "формат"
Выбираешь стиль фигуры (внутри должна быть белая) .
Заходишь во вкладку "Вставка" выбираешь фигуру "линия" и сам прямоугольник размечаешь под таблицу и да не забудь во вкладке "формат" сделать что-бы прямоугольник и линии были за текстом.
A = 10111(2) = 2^4+2^2+2^1+2^0 = 16+4+2+1 = 23(10)
B = 111(5) = 5^2+5^1+5^0 = 25+5+1 = 31(10)
C = 53(8) = 5*8^1+3*8^0 = 40+3 = 43(10)
D = 2E(16) = 2*16+14 = 46(10)
Ответ: ABCD