В заданной фразе после каждой буквы "о" вставить сочетание введенное с клавиатуры.

Или найдите как изменить эту программу, в ней сочетание пишется только после первой буквы, хотя если словосочетание будет из одной буквы то программа нормально работает.

program pony;

vark, a, b:string;

i:integer;

begin

write ('введите строку') ;

readln (a) ;

write ('введите сочетание') ;

readln (b) ;

k:=copy (b, 1, length (b)) ;

for i:=1 to length (a) do begin

if a[i]='о' then insert (k, a, i+1) ;

end;

writeln (a) ;

end.

Question

Информатика

Добромила

26 марта, 10:13

В заданной фразе после каждой буквы "о" вставить сочетание введенное с клавиатуры.

Или найдите как изменить эту программу, в ней сочетание пишется только после первой буквы, хотя если словосочетание будет из одной буквы то программа нормально работает.

program pony;

vark, a, b:string;

i:integer;

begin

write ('введите строку') ;

readln (a) ;

write ('введите сочетание') ;

readln (b) ;

k:=copy (b, 1, length (b)) ;

for i:=1 to length (a) do begin

if a[i]='о' then insert (k, a, i+1) ;

end;

writeln (a) ;

end.

+5

Ответы (1)

Знаете ответ на вопрос?

Лукаря · Answer 1

Program pony;

var

a, b: string;

i: integer;

begin

Write ('введите строку: ') ; Readln (a) ;

Write ('введите сочетание: ') ; Readln (b) ;

for i : = length (a) downto 1 do

if a[i] = 'о' then insert (b, a, i + 1) ;

Writeln (a)

end.

Тестовое решение:

введите строку: Дает корова молоко

введите сочетание: 12345

Дает ко12345 ро12345 ва мо12345 ло12345 ко12345