35 минут=2100 секунд
40 Мбайт=40*2^23 бит =5*2^26 бит
--------------------
t1=5*2^26 : 2^18 = 5*2^8=5*256=1280 c (из Б в В)
t2=5*2^26 : 2^19 = 5*2^7=5*128=640 c (из А в Б)
1280+640=1920<2100
t=2100-1920=180c
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
uses crt;
var i,o:text;
s:string;
ans:integer;
begin
assign(i,'C:\Pascal\input.txt'); reset(i);
assign(o,'C:\Pascal\output.txt'); rewrite(o);
while eoln(i)<>true do
begin
readln(i,s);
if ((s[2]>s[1]) and (s[3]>s[2]) and (s[4]>s[3])) or ((s[2]<s[1]) and (s[3]<s[2]) and (s[4]<s[3])) then
begin
writeln(o,s);
inc(ans);
end;
end;
writeln(ans);
close(o);
<span>end.</span>
128 символов = 2^7 т.е. 7 бит на символ
Одна страница занимает = 8750байт / 5 страниц = 1750 байт
Одна строка занимает = 1750 байт / 25 строк = 70 байт
Символов в строке = 70*8 бит / 7 бит = 80 символов