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 кб, можно записать три такие книги
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.
А решение выглядит так:
64 символа в строке, значит 1 строка занимает 64символа*2байта=128байт
На странице 32 строки, значит 32строки*128байт=4096байт
В книге 30 страниц, значит 30стр*4096байт=122880байт
Размер одной книги получается 120 килобайт.
Трехдюймовая дискета, именно 3', образца 1982 года, имела объем 360 килобайт. Откуда информация насчет 7,44кб?
Т.е. на дискету объемом 360 кб, можно записать три такие книги