// A)
begin
var f1 := BigInteger(1);
var f2 := BigInteger(1);
var Count := 2;
repeat
var f := BigInteger(f1 + f2);
f1 := f2;
f2 := f;
Count += 1
until Count = 40;
Write(f2)
end.
// B)
begin
var f1 := BigInteger(1);
var f2 := BigInteger(1);
var m := ReadlnInteger();
repeat
var f := BigInteger(f1 + f2);
f1 := f2;
f2 := f;
until f2 > m;
Write(f2)
end.
// C)
begin
var f1 := BigInteger(1);
var f2 := BigInteger(1);
var S := f1;
repeat
S += f2;
var f := BigInteger(f1 + f2);
f1 := f2;
f2 := f;
until f2 >= 1000;
Write(S)
end.
1) 23+16=39 символов было в сообщении первоначально
2) 23 × 1 байт = 23 байт общий объем первого сообщения без русского алфавита
3) 16 × 2 байта = 32 байт информационный объем сообщения русского алфавита до перекодировки
4) 23+32=55 байт - информационный объем сообщения до перекодировки
5) 39 × 2 байт = 78 байт информационный обем сообщения после перекодировки ( в Unicode 1 символ - 2 байта)
6) 4 Кбит ×1024/8 = 512 байт объем добавленного сообщения
7) 78+512 = 590 байт стал информационный объем сообщения после добавления еще одного сообщения
8) 590 - 55 = 535 байт увеличился итоговый информационный объем
ответ: 535 байт
ответ:1мб
Объяснение: