Регистрация
grbennikovigor
30.04.2022 12:20
Информатика
Есть ответ 👍

Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в 16 - битовом коде Unicode, в 8 - битовую кодировку КОИ - 8. При этом информационное сообщение уменьшилось на 600 битов. Какова длина сообщения в символах?

Помните

218
400
Посмотреть ответы 1

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

Poli2533
Poli2533
4,5(57 оценок)

program stroka;

uses crt;

var a: string;

 

      c1,c2, i,k: integer;  

begin

    clrscr;

    write('введите строку: ');

    readln(a);

    k: =length(a);

c1: =0; c2: =0;

 

// первый проход меняем "и" на  "a"  

    for i: =1 to k do    if(a[i]='и') or (a[i]='и') then

        begin  

                a[i]: ='а';

                c1: =c1+1;

 

          end;

    // второй проход меняем "а" на  "о"      

 

    for i: =1 to k do    if(a[i]='а') or (a[i]='а') then

            begin

 

                  a[i]: ='о';      

                  c2: =c2+1;    

 

              end;

writeln;

 

 

 

  writeln('строка после всех замен: ',a);

 

  writeln('замен и на а: ',c1);

  writeln('замен a на о: ',c2);  

    readkey;

 

end. 

 

 

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