Составить программу которая переписывает любую введенную фразу заменяя букву ш на букву х вот фраза мышки ели шишки
stanislavovichs
3
23.04.2019 19:30
0
Другие вопросы по теме Информатика
GoldenKookieBunny
14.09.2019 13:20
АкадемеG
14.09.2019 13:20
nshexovceva18
23.01.2021 07:56
FJFJKD99
02.12.2021 15:21
Кея1563
02.12.2021 15:22
Bastricov
02.12.2021 15:29
Logicsmile007
02.12.2021 15:33
annar2001
02.12.2021 15:34
2407arinka
02.12.2021 15:37
mictermixa1
02.12.2021 15:38
Популярные вопросы
- Жазылым• татарлар туралы на-тапсырма.«қосжазба күнделігі». мәтін мазмұнынасүйеніп,...
2 - Кто мне 100 язык автор horizonte стр 42 6 жду 15 мин мне надо можно только умоляю...
2 - Какой ответ в языка тест 30 слова,близкие по значению (синонимы) 4....
1 - Продовжити історію камаля і полковничого сина за віршем кіплінга про схід і...
2 - Запиши в зошиті автобіографію написану від імені климка нужно : (...
3 - Краткий доклад про восточных славин и их соседей...
2 - Умоляю, завтра 1 уроком, а я не могу решить : определите, какое количество вещества...
3 - Обычаи и традиции народов океании...
2 - Из какой страны не знаю как дела с нашим предложением и не надо было бы...
3 - Казахстана 7-8 класс. 40 за полный ответ.фото прилагается....
2
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.