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

Написать программу pascal abc в исходном файле записана речь подростка, в которой часто встречается слово паразит «ко роче», например: «мама, короче, мыла, короче, раму.» убрать из текста все слова паразиты (должно остаться «мама мыла раму.»).

👇
Ответ:
fatimamuradaaa
fatimamuradaaa
24.08.2020
Программа на скрине.
Написать программу pascal abc в исходном файле записана речь подростка, в которой часто встречается
4,7(53 оценок)
Ответ:
Lizikjung
Lizikjung
24.08.2020
Begin
  var s := ReadAllText('input.txt');
  while (pos(', короче,', s) <> 0) do
    delete(s, pos(', короче,', s), 9);
  WriteAllText('output.txt', s);
end.
4,5(10 оценок)
Открыть все ответы
Ответ:
vasukulia
vasukulia
24.08.2020
2. процессор-микропроцессор, который выполняет задачи, алгоритмы, управляя компьютером.
системный блок-большая коробка, корпус, в котором находятся все комплектующие компьютера.
3. это конечная последовательность однозначных предписаний, исполнение которых  позволяет с конечного числа шагов получить решение задачи, однозначно определяемое исходными данными.
4.стационарный или подвижный объект, который представляет собой комплекс технических средств обработки информации, предназначенный для выполнения определенных функций
4,4(42 оценок)
Ответ:
777sofia777
777sofia777
24.08.2020
Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.
4,6(36 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ