<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
Var
A,i:integer;
P:real;
Begin
P:=1;
WriteLn('Введите 10 целых чисел');
For i:= 1 to 10 do
Begin
Read(A);
if (10<=A)and(A<=20) then P:=P*A;
End;
WriteLn('P = ',P);
End.
3 bit так как 1 буква это 1 bit
Значение в ячейке B2 = 3-5 = -2
Формула в ячейке B3: = A2-$B$1
значение в B3 = 7-5 = 2
Формула в ячейке C3: =B2-$B$1
значение в ячейке C3 = -2-5 = -7