В одной из кодировок Unicode каждый символ кодируется 16 битами.
Коля написал сообщение своей маме (в нём нет лишних пробелов). В нём он перечислил имена новых друзей. Перед тем, как отправить сообщение, он вписал имя ещё одного мальчика. Мама получила следующее сообщение:
Дима, Вадим, Сергей, Анатолий и Денис — мои новые друзья.
Коля вписал имя друга, запятую и пробел. При этом размер нового предложения в данной кодировке оказался на 14 байт больше, чем размер исходного предложения. Напишите в ответе, какое имя вписал Коля?
Важно: ответ необходимо записать заглавными буквами!
uses crt;
var
p:integer;
s,s2,pr,ch3:real;
begin
writeln('Стоимость билета 1 класса: ');
read(s);
writeln('Общее количество пассажиров: ');
read(p);
ch3:=(3*(p/4));// 3 четверти пассажиров
pr:=(s/100)*20;// 20% от стоимости
s2:=(ch3*s)+((p/4)*pr);
writeln('Всего заработает за рейс: ',s2);
end.
program cena;
uses crt;
var
k,a,b,m,obc:real;
begin
writeln('Цена за конфеты "Красная шапочка": ');
read(k);
writeln('Цена за конфеты "Алые паруса": ');
read(a);
writeln('Цена за конфеты "Воронежские": ');
read(b);
writeln('Цена за конфеты "Чародейка": ');
read(m);
obc:=0.5*k+0.2*a+0.1*b+0.25*m;
writeln('Всего ',obc,' руб.')
end.