(42-34)/0.1 = 80.
2^6=64 - 6 бит мало,
берем 2^7=128 - 7 бит.
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
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>
Слово не воробей, вылетит-не поймаешь.
предложение состоит из 38 знаков (включая пробелы)
2 в степени i = 63
i = 6 бит потребуется на 1 символ
38*6=228 бит весит предложение. (или 228/8 =28.5 байт)
Ответ:
1б,байт 1024, КБ 980,мб 1024
6. 15117. Дальше думай сам. Тут легко.