В одной из кодировок каждый символ кодируется 8 битами. Вова написал текст (в нём нет лишних пробелов): «Заяц, лев, слон, олень, тюлень, носорог, крокодил,
аллигатор - дикие животные».
Затем он вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы - два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 5 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
В одной из кодировок каждый символ кодируется 8 битами. Вова написал текст (в нём нет лишних пробелов):
«Лев, еж, слон, олень, тюлень, носорог, крокодил,
аллигатор - дикие животные».
Затем он вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы - два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 4 байта меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
- !
- ! вот вам меню.
- . я готова сделать заказ.
- да, .
- можно мне кусочек шоколадного торта и чашку зеленого чая?
- конечно. все будет готово через минуту.
- ! рада слышать это.
- вот ваш чай и ваш торт.
- !
- приятного
аппетита.
- !
(через пятнадцать минут)
- извините, сколько мне платить?
- 190 рублей.
- вот, . сдачи не надо.
- , приходите еще!
перевод:
- bună!
- bună! iată un meniu pentru dvs.
- mulțumesc. sunt gata să fac o
comandă.
- da, te rog.
"pot să am o felie de tort de ciocolată și o ceașcă de ceai verde? "
- bineînțeles. totul va fi gata într-un minut.
- mulțumesc! mă bucur să aud.
- iată ceaiul și prăjitura ta.
- mulțumesc!
- apetitul bun.
- mulțumesc!
(după cincisprezece minute)
- scuzați-mă, cât ar trebui să plătesc?
- 190 de ruble.
- aici ești. schimbarea nu este necesară.
- mulțumesc, vino din nou!
Задание 1:
var i:integer;
begin
for i:=1 to 20 do writeln('2^',i,'=',exp(i*ln(2)):0:0)
end.
Задание 2:
Мало деталей...N чисел вводятся вручную или они генерятся автоматически рандомно?
var i,min,n,x:integer;
begin
min:=9999;
write('Количество чисел: '); readln(n);
for i:=1 to n do begin
write('Введите ',i,'-е число: '); readln(x);
if x < min then min:=x
end;
write('Минимальное из введённых чисел равно ', min);
end.
Задание 3:
var i,x:integer;
chk:boolean;
begin
chk:=True;
write('Введите натуральное число: '); readln(x);
for i:=2 to x-1 do begin
if x mod i = 0 then begin
chk:=False;
break;
end;
end;
if chk = True then write('Введённое число является простым.')
else write('Введённое число не является простым.');
end.