Var x,y:integer;
begin
readln (x);
y:=2*Power(x,2) +3;
writeln (y);
end.
Ответ:
1F4BB
11111010010111011
Объяснение:
Если затрудняешься в кодированием и декодированием то просто открой калькулятор в виндовс,там зайди в "вид" и "программист". В Hex вписывай свои символы с буквами и после нажимай на "bin" и из 16-ричной системы он переведет в двоичную))
Удачи
PROGRAM PR12_NV;
USES CRT;
VAR Y, A: REAL;
I: BYTE;
BEGIN
WRITE(' a = ');
READLN(A);
Y:=0;
FOR I:= 1 TO 10 DO
BEGIN
Y:= Y+ I*LN(A);
END;
WRITELN(' Y = ', Y:12:6);
END.
Конструкция SmallString = string[l]; объяляет тип SmallString как строку из l символов. Для такого объявления l должно быть задано выше константой.
Первое 12/2=6
Второе 6/2=3
Третье 3 возводим в квадрат получится 3*3=9
Четвёртое 9 возводим в квадрат получится 9*9=81
Ответ: 1122