89 2
1 44 2
0 22 2
0 11 2
1 5 2
1 2 2
0 1
1011001
1875 кбайт * 1024 * 8 = 15 360 000 бит
800 * 600 * (ln(256)/ln(2)) = 3840000 бит
15360000 / 3840000 = 4 страницы
Ответ:
var t1,t2:text; c:char; f:boolean;
begin
assign(t1,'INPUT.TXT');
reset(t1);
assign(t2,'OUTPUT.TXT');
rewrite(t2);
f:=true;
while not eof(t1) and f do
begin
read(t1,c);
f:=f and (c='1');
end;
if f then writeln(t2,'YES')
else writeln(t2,'NO');
close(t1);
close(t2);
end.
В чём помощь - то требуется?
Ответ:
ПО общего назначения
Развлекательное ПО
ПО специального назначения
Профессиональное ПО