Program Task; Var a, b, c, d: Integer; Function Max(a, b: Integer): Integer; Begin If a > b Then Result := a Else Result := b; End; Function Min(a, b: Integer): Integer; Begin If a < b Then Result := a Else Result := b; End; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); Write('c = '); ReadLn(c); Write('d = '); ReadLn(d); WriteLn('max(a, b) + min(a, b) + min(c,d) = ', Max(a, b) + Min(a, b) + Min(c,d)); WriteLn('max(a, b, c, d) + min(a, b, c) = ', Max(Max(a, b), Max(c, d)) + Min(Max(a, b), c)); ReadLn; End.
Смотря в какой кодировке. Если, например, UTF-8, то 1 символ будет занимать 2 байта. А решение выглядит так: 64 символа в строке, значит 1 строка занимает 64символа*2байта=128байт На странице 32 строки, значит 32строки*128байт=4096байт В книге 30 страниц, значит 30стр*4096байт=122880байт Размер одной книги получается 120 килобайт.
Трехдюймовая дискета, именно 3', образца 1982 года, имела объем 360 килобайт. Откуда информация насчет 7,44кб?
Т.е. на дискету объемом 360 кб, можно записать три такие книги
C=0;D=0;E=0
Объяснение:
Импликация ложна, если 1→0, соответственно
¬(C V D) =1
(C V D) =0
С=0 D=0
(E & ¬C)=0
(E & ¬0)=0
(E & 1)=0
E=0