voxlemap
18.09.2021 10:41

На базе файла создать шаблон документа Word, в котором содержался бы титульник, а всё оформление было выполнено через стили (возможно использование разделов с собственными наборами стилей)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vava4849
29.12.2020 03:05
# Python 3.6.1

S = input()
B = input()
C = [int(i) for i in input().split()]
A = input()

for m in [i for i in set([j for j in range(len(S))]).difference(C)]:
   if S[m] in B.split():S =  S[:m] + A[0] + S[m+1:]
print(S)



// Pascal

Var
   S:string[100];
   B:string[50];
   C:array[0..100] of byte;
   A:char;
   j,m:byte;
   L:boolean;
Begin
ReadLn(S);
ReadLn(B);
j:=0;
Read(A);
While A <> #13 do
   Begin
   Read(C[j]);
   C[j]:=C[j]+1;
   j:=j+1;
   Read(A);
   End;
ReadLn();
Read(A);
For m:= 1 to Length(S) do
    Begin
    L:=true;
    For j:= 0 to j do
        if C[j] = m then L:=false;
    if L then
       if pos(S[m],B) <> 0 then S[m]:=A;
    End;
WriteLn(S);
End.
0,0(0 оценок)
Ответ:
SviYm
29.08.2020 07:23
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var t:=ReadAllText('Pascal.txt');
  var c1:=ReadlnString('Введите строку замещаемых символов').ToCharArray;
  var c2:=ReadlnString('Введите строку замещающих символов').ToCharArray;
  for var i:=0 to c1.Length-1 do
    t:=t.Replace(c1[i],c2[i]);
  WriteAllText('Pascal.txt',t);
  Writeln('Работа завершена');
end.

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