Free Pascal. Нужно написать программу, где после каждой буквы Ch вставляется стр...

July 2022 1 57 Report

Free Pascal. Нужно написать программу, где после каждой буквы Ch вставляется строка Str1.

Answers & Comments

12w12w Var
s,str1:string;
ch:char;
i:integer;
begin
Write('Введите текст: '); ReadLn(s);
Write('Введите искомый символ: '); Readln(ch);
Write('Введите добавляемый текст: '); Readln(str1);
for i:=Length(s) downto 1 do
if s[i]=ch then Insert(str1,s,i+1);
Writeln('Результат: ',s);
Readln;
end.

Тестовое решение:
Введите текст: А роза упала на лапу Азора
Введите искомый символ: а
Введите добавляемый текст: 12345
Результат: А роза12345 упа12345ла12345 на12345 ла12345пу Азора12345

1 votes Thanks 1

Answers & Comments

free pascal 15 zadanie

paskal chisla fibonachchi chisla fibonachchi fn opredelyayutsya formulami f0f1f2

paskal 1 dano trehznachnoe chislo nuzhno najti chislo poluchennoe pri prochtenii

free pascal zadat massiv i iz massiva a v b perepisat snachala vse nuli poto

napishite pozhalujsta reakciyu kak iz feso4 poluchit feohso4

v legochnyh kapillyarah proishodit obmen sostava krovi s venoznoj na arterialnuyu

pomogite pozhalujsta s paskalem nuzhno napisat programmu kotoraya modeliruet d

paskal pomogite pozhalujsta nuzhno napisat programmu kotoraya v levom verhnem

paskal podskazhite pozhalujsta kak mozhno usovershenstvovat programmu tak chtob

free pascal najti kolichestvo chetnyh chisel sredi pyati celyh chisel bez ispolzov

рекомендуемые вопросы

Helpful Links

Helpful Social