М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lera645
lera645
31.01.2020 23:39 •  Информатика

вы менч слышите если да + поставьте


вы менч слышите если да + поставьте

👇
Открыть все ответы
Ответ:
Двоищник234
Двоищник234
31.01.2020
1)
begin
  var s1:=ReadlnString('Текст:');
  Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count);
  var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':c);
  s2.Println;
end.

Пример:
Текст: Текст с 1 и 0: 110+101=1011
k = 12
Текст с M и A: MMA+MAM=MAMM

2)
var s1,s2:string;
i,k:integer;
begin
writeln('Введите текст:');
readln(s1);
k:=0;
s2:='';
for i:=1 to length(s1) do
 if s1[i]='0'
  then begin s2:=s2+'A'; k:=k+1; end
  else if s1[i]='1' then begin s2:=s2+'M'; k:=k+1; end else s2:=s2+s1[i];
writeln(s2);
writeln('k = ',k);
end.

Пример:
Введите текст:
Текст с 1 и 0: 110+101=1011
Текст с M и A: MMA+MAM=MAMM
k = 12
4,5(50 оценок)
Ответ:
камилла2009
камилла2009
31.01.2020

Romanovich (первая буква большая)

Кодирование в ASCII (American standard code for information interchange):

Двоичный код: 01010010 (R), 01101111 (o), 01101101 (m), 01100001 (a), 01101110 (n), 01101111 (o), 01110110 (v), 01101001 (i), 01100011 (c), 01101000(h)

Кодирование в КОИ-8 («Код Обмена Информацией 8-битовый», таблица разработана для кодирования букв кириллицы)

Двоичный код: 11111010 (З), 11000001 (а), 11010111 (в), 11010100 (т), 11010010 (р), 11000001 (а), 00100000 (пробел), 11010111 (з), 11001001 (и), 11001101 (м), 11000001 (а), 00101110 (. точка)

Десятичный код этой фразы: 250, 193, 215, 212, 210, 193, 32, 215, 201, 205, 193, 46

4,4(25 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ