Сравните двоичные числа
1101+11 и 1111+10
11101-11 и 111+11
1101•1101 и 1011 •1011
​

если для каждого из 3 символов возможны 3 варианта, то общее число слов    3³ = 27

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.