20 символов, тк если 40 разделить на 2 будет 20
С
помощью функции "ОТБР", которая усекает число до целого, отбрасывая дробную часть
числа, так что остается целое число, исходное число делим на разряды, которые
затем суммируем
Пример решения в файле
Ответ:
Var name,s:string;
Begin
Writeln('Введите Ваше имя и класс через пробел');
Read(s);
Ffor i:=1 to length(s) do
Begin
If s[i]= ' ' then break;
Name:=name+s[i];
End;
Write(name, ' , поздравляем с написанием первой программы на языке Паскаль');
End.
I(место, необходимое для хранения сообщения) = 12*33*63 = 24 948 Бит
24 948 Бит = 24 948 / 8 = 3 118. 5 байт.