Написать программу заменяющую одну букву ** другую и подсчитывающую сколько раз ее...

0 голосов
29 просмотров

Написать программу заменяющую одну букву на другую и подсчитывающую сколько раз ее заменили. (Букву любую на любую другую)


Информатика (44 баллов) | 29 просмотров
Дан 1 ответ
0 голосов

Ответ:

var

ch:integer;

 s: string;

 i: byte;

 begin

 WriteLn('Введите строку: ');

 ReadLn(s);

 for i := 1 to Length(s) do

   if s[i] = 'a' then

     s[i] := 'o';

ch++;

 WriteLn('Полученная строка:');

 WriteLn(s);

 WriteLn(ch);

end.

Объяснение:

(146 баллов)