Составить программу которая переписывает любую введенную фразу заменяя букву ш на букву х вот фраза мышки ели шишки
Составить программу которая переписывает любую введенную фразу заменяя букву ш на букву х вот фраза мышки ели шишки
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.