1)сколько страниц машинопечатного текста(80 символов, 60 строк)содержится в текстовом файле объемом 700кб? 2)каков объем несжатого немого тридцатисекундного видеофайла 320х200, 16 цветов?

1)

q=700kb=700*1024b=5734400бит

1 символ=8бит

8*80*60=38400

количество страниц=5734400/38400=150 страниц

 

Допустим утверждение коли верно, тогда ваня ошибся ( ведь победила марина),   утверждение леши также ошибочно (марина заняла первое место) но это противоречит условию так как    (двое из друзей не ошиблись, ошибся только один)тогда пускай утверждение вани верно, значит победителем стала алина, значит утверждение коли ошибочно, утверждение леши так же верно, так как он не сказал что лена займет первое место, он просто сказал что она умнее всех. если леша был прав, то тогда неправ был коля, на правильность  утверждения вани это никак не влияет. получается правы леша и ваня, а  первое место заняла алина.

Program proga_25_3; var   a: text; s,p : string;   i: integer;   f: boolean; begin    write('введите имя и путь к файлу   ');     read(p);     assign(a, p);     reset(a);     while not eof(a) do      begin          readln(a,s);                     for i: =1 to length(s) div 2 do          if s[i]=s[length(s)-i+1] then              f: =true            else          begin          f: =false;           break;           end;         if f then          writeln (s);       end;       close(a); end.