ИНФОРМАТИКА!!!33 балла!!! Самостоятельная работа

1)6

2)1621185

3)Б-4 А-1 В-3 Г-4 (не точно)

4) Б-4 A-3 B-2 Г-4

5)256 000бит умножим на 128 (т.к в 2минутах 120 секунд и еще нам дополнительно дают 8 секунд = 128)

128*256000=32768000бит

Переведем бит в Байт 32768000:8=4096000

Переведем Байт в КБайт 409600:1024=4000КБайт

Объяснение:

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.