Ответ:
этот фрукт кисло-сладкий и спелый
var x,y:real; a:integer;
begin
writeln('Введите номер :');
readln(a);
case(a) of
1:
begin
writeln('x = ');
readln(x);
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
writeln('x = ');
readln(x);
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
writeln('x = ');
readln(x);
y := Power(x,2);
writeln('y = ',y);
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Я еще приведу пример кода на PascalABC.NET так для сравнение
begin
var a:=ReadInteger('Введите номер: ');
case(a) of
1:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
var x:=ReadInteger('x = ');
writeln('y = ',Power(x,2));
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Вопрос поставлен некорректно, поэтому и ответ такой.
Если говорить об информации содержащейся в письме (о его смысловой нагрузке), то её объём не зависит от количества знаков в алфавите. А если речь идёт об объёме информации, который потребовался для записи сообщения, то тогда другое дело.
У Мульти для записи одного символа используется 5 бит (2^5=32), а у Пульти 6 бит (2^6=64). Значит сообщение Мульти было записано с помощью 80*5=400 бит, а сообщение Пульти с помощью 70*6=420 бит.
Значит сообщение Пульти больше сообщения Мульти на 20 бит.