Составить программу которая переписывает любую введенную фразу заменяя букву ш на букву х вот фраза мышки ели шишки

Question

Информатика

Митяй

5 апреля, 17:06

Составить программу которая переписывает любую введенную фразу заменяя букву ш на букву х вот фраза мышки ели шишки

+3

Ответы (1)

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

Викторий · Answer 1

program P1;

var

s1 : string;

i : integer;

begin

write ('Fraza: ') ;

read (s1) ;

for i : = 1 to length (s1) - 1 do

begin

if s1[i] = 'ш' then

s1[i] : = 'х';

if s1[i] = 'Ш' then

s1[i] : = 'Х';

end;

writeln ('Resultat: ', s1) ;

readln;

readln;

end.