Ну если допусть что форматирование не изменяет размеры текста, то тогда получиться
50 * 60 * (1 + 0.25) = 3750 (символов)
Теперь остается вопрос какая это будет кодировка
Если кодировка ASCII например, то будет 1 символ = 1 байт
Если же кодировка UTF16, то будет 1 символ = 2 байта
Если например UTF8, туо тут так просто не определишь, бо там от 1 до 4 байт на символ в зависимости от частоты встречаемости, чтобы экономить
Например английские символы - 1 байт, а русские 2 байта
Ответ:
program Multi3;
var
A: array [1..3] of Double;
i: Integer;
p: Double;
b: Boolean;
begin
Randomize;
Write ('Исходные числа:');
WriteLn;
for i := 1 to 3 do begin
A [i] := Random (4000) / 1000 - 1; // заполняем числами, чтоб были и положительные и отрицательные
Write (A[i] :10 :3, ' ');
end;
b := False;
p := 1;
for i := 1 to 3 do begin
if Abs (A [i]) < 1 then begin
b := True; // включаем флаг, если найдено хотя бы одно подходящее число
p := p * A [i];
end;
end;
WriteLn;
if b then
WriteLn ('Произведение = ', p :10 :3)
else
WriteLn ('Произведение не определено.');
ReadLn;
end.
Ответ:
древнеегипетская система счисления
Объяснение:
древнеегипетская система счисления относится к непозиционной системе счисления
64*40=2560
2560*40=102400
102400:1024=100Кбайт
<em>// PascalABC.NET 3.2, сборка 1431 от 28.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
(var s,var p):=(int64(0),BigInteger(1));
foreach var x in ReadSeqIntegerWhile(k->k<>0) do
if x>0 then s+=x
else p*=x;
Writeln('S=',s,', П=',p)
end.
<u>Пример</u>
24 -15 -42 18 35 -14 7 0 12 -206 138 -232 0
S=84, П=-8820
<em>Замечание:</em> числа 12 -206 138 -232 0 после нуля введены намерено, чтобы показать, что отсечение приема данных происходит по первому нулю.