Составьте программу замены в слове,введенном с клавиатуры,всех букв"и" на"а"и"а"на"о".сосчитать количество замен.отладка программы для слова"накидка"
Program Stroka;
Uses Crt;
var a:string;
c1,c2, i,k:integer;
begin
clrscr;
write(Введите строку: );
readln(a);
k:=length(a);
c1:=0;c2:=0;
// Первый проход меняем "и" на "a"
for i:=1 to k do if(a[i]=и) or (a[i]=И) then
begin
a[i]:=а;
c1:=c1+1;
end;
// Второй проход меняем "а" на "о"
for i:=1 to k do if(a[i]=а) or (a[i]=А) then
begin
a[i]:=о;
c2:=c2+1;
end;
writeln;
writeln(Строка после всех замен:,a);
writeln(Замен и на а:,c1);
writeln(Замен a на о:,c2);
readkey;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
