Чему равна мощность алфавита если ифармационный вес его символа равен 1 байту? ​

думаю, что 19,5 кб = 0,019 мб.

на выходе 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.

b) 9 лет

2020=4

2011=4 

var a: integer; beginreadln(a); write (a div 10); end.