Регистрация
alina130410
19.06.2023 02:05
Информатика
Есть ответ 👍

Водной из кодировок unicode каждый символ кодируется 16 битами.определите информационный объём следующего предложения : с книгой поведёшься-ума наберёшься

201
266
Посмотреть ответы 1

Ответы на вопрос:

Nawrik34digma
Nawrik34digma
4,6(66 оценок)
Var     a: array['0'..'9'] of longint;     c: char;     i: integer; begin for c: = '0' to '9' do a[c]: =0; repeat read(c); if c in['0'..'9'] then a[c]: =a[c]+1; until c = '.'; if (a['1']=0)and(a['2']=0)and(a['3']=0)and(a['4']=0)and(a['5']=0)and(a['6']=0)and(a['7']=0)and(a['8']=0)and(a['9']=0) then     if a['0']=0 then write('no')     else           begin           writeln('да');           writeln(0);           end else     begin     writeln('да');     for c: ='9' downto '0' do             for i: = 1 to a[c] do                     write(c)     end end.

Популярно: Информатика