1)
Var x:integer;
Begin
write('x=');
readln(x);
if x>=0 then x:=x*2;
else x:=abs(x);
writeln('Otvet=',x);
readln;
End.
Задание 2
a := 14
b := a/2 (14 / 2 = 7)
a := b*b (7 * 7 = 49)
c := sqrt(a) (корень из 49 = 7)
Ответ: 7
Двоичный алфавит<span> состоит из </span>2<span>-х </span>символов<span>: 0 и 1 </span>
Один из вариантов решения задачи - в прилагаемом файле