с Информатикой
ЗАДАНИЕ 1 ВАРИАНТ 4
ЗАДАНИЕ 2 ВАРИАНТ 4
​

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

101110, 101111. в десятичной эти числа равны 46 и 47.