В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Angel2к17
Angel2к17
09.09.2020 11:41 •  Информатика

Дана строка длиной n символов, содержащая слова, т.е. группы символов, разделенные пробелами и другими разделителями (знаками препинания). 1. удалить все символы строки s1, которые встречаются в другой строке s2. 2. в словах, которые оканчиваются сочетанием букв "ят", заменить это окончание на "ить".

в с++

Показать ответ
Ответ:

Посмотри в Help'е функцию Exec. У  меня Turbo Pascal поэтому пример оттуда

 

Program StartApl; 

{$M $4000, 0, 0 } { 16Kб стек, нет кучи }
uses Crt, Dos;
var ProgramName, CmdLine : String;
begin

    ClrScr;  
    Write('Имя программы для запуска (с путём) : ');
    ReadLn(ProgramName);
    Write('Параметры командной строки ', ProgramName, ' : ');
    ReadLn(CmdLine);
    WriteLn('Пробую запустить...');
   SwapVectors;
   Exec(ProgramName, CmdLine);
   SwapVectors;
   WriteLn('... вернулся из Exec');
{ Была ошибка ? }
  if DosError <> 0 then  WriteLn('Ошибка DOS #', DosError)
       else  WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
end.

0,0(0 оценок)
Ответ:
zeka27
zeka27
26.09.2022 15:31

1)

 

var
a, b, c, d: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма цифр равна: ', b + c + d);
end.

 

2)

 

var
a, b, c, d, p: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
p := d * 100 + c * 10 + b;
writeln('Наоборот: ', p);
end.

 

3)

 

var
a, b, c, d, e: integer;
begin
readln(a);
e := a div 1000; { тысячи }
b := (a div 100) mod 10; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма: ', e + b + c + d);
writeln('Произведение: ', e * b * c * d);
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота