Вязыке (не считая букву ё) 32 символа. определите информационный объем сообщения : " скоро состоится олимпиада по информатике! " a) 205 бит б)210 бит в) 215 бит г) 220 бит

Г)

uses crt; var i,j,k,n,m,t: integer; mas: array[1..10,1..10]of integer; begin randomize; readln(n); readln(m); writeln; writeln('bazovui massiv'); for i: =1 to m dofor j: =1 to n do mas[i,j] : =random(100); for i: =1 to m do beginwriteln; for j: =1 to n dowrite (mas[i,j],' '); end; writeln; for i: =1 to m dofor j: =1 to n do for k: =1 to n-1 do if mas[i,k]> mas[i,k+1] then begin t: =mas[i,k]; mas[i,k]: =mas[i,k+1]; mas[i,k+1]: =t; end; writeln; writeln('massiv posle obrabotki') ; for i: =1 to m do beginwriteln; for j: =1 to n dowrite (mas[i,j],' '); end; end.

uses crt; var i,j,k,n,m,t: integer; mas: array[1..10,1..10]of integer; begin randomize; readln(n); readln(m); writeln; writeln('bazovui massiv'); for i: =1 to m dofor j: =1 to n do mas[i,j] : =random(100); for i: =1 to m do beginwriteln; for j: =1 to n dowrite (mas[i,j],' '); end; writeln; for i: =1 to m dofor j: =1 to n do for k: =1 to n-1 do if mas[i,k]> mas[i,k+1] then begin t: =mas[i,k]; mas[i,k]: =mas[i,k+1]; mas[i,k+1]: =t; end; writeln; writeln('massiv posle obrabotki') ; for i: =1 to m do beginwriteln; for j: =1 to n dowrite (mas[i,j],' '); end; end.

Program test10voprosov ;

Var

otvet1, otvet2, otvet3, otvet4, otvet5, otvet6, otvet7, otvet8, otvet9, otvet10:String;

begin

WriteLn ('1.В каком году Россия стала империей? ' ) ;

ReadLn (otvet1) ;

WriteLn ('2.Сколько углов у квадрата? ' ) ;

ReadLn (otvet2) ;

WriteLn ('3. Сколько сейчас времени? ' ) ;

ReadLn (otvet3) ;

WriteLn ('4. В каком году родился Пушкин? ' ) ;

ReadLn (otvet4) ;

WriteLn ('5. Сколько городов в нашей области? ' ) ;

ReadLn (otvet5) ;

WriteLn ('6. Кто является президентом РФ на данный момент ? ' ) ;

ReadLn (otvet6) ;

WriteLn ('7.В каком году распался СССР ? ' ) ;

ReadLn (otvet7) ;

WriteLn ('8. Как вас зовут ? ' ) ;

ReadLn (otvet8) ;

WriteLn ('9. Сколько вам лет ? ' ) ;

ReadLn (otvet9) ;

WriteLn ('10. В каком месяце у вас др? ' ) ;

ReadLn (otvet10) ;

end.