Var
otvet:String;
i:integer;
S0,S:String;
C:char;
begin
//Считывание данных
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);

//Цикл посимвольная обработка строки
for i:=1 to length(S) do
begin
//Программа вставляет подстроку S0 в строку S
//перед каждым символом C
//Сохраняя результат в otvet
if S[i]=C then
Otvet:=otvet+S0+C
else
Otvet:=otvet+S[i];
end;

Writeln('Ответ:', otvet);
<span>end.</span>

0 0

4 года назад

Любое слово с суфиксом и окончанием

krasnuidzoker

Шапочка( суффикс-очк, окончание-а), домики ( суффикс-ик, окончание и).

0 0

4 года назад

Прочитать ещё 2 ответа

Часы отображающие время в 24 часовом формате показывает 02 45 какое время не показывает 240 минут назад

peps

Я думаю что 22:45 надеюсь помогла !

0 0