На Паскале если используются переменные типа string, то обработка строки занимает ну ооооочень много времени. Вместо string лучше использовать массив char. На скринах приведен пример программ с использованием char. Символы считывались из файла , размер 20000. Время работы программ (разницу) оцените сами.
Компьютерные технологии сегодня широко используются во всех областях человеческой деятельности. Знание предмета и основ информатики имеет большое значение в наши дни. Изучить информатику, в принципе, сможет любой желающий. Просто у кого-то это займёт меньше времени и сил, а у кого-то больше.
Поставьте для себя конкретные цели, которых вы хотите достичь, изучая информатику. Прежде всего, сделайте акцент на основные понятия и процессы. Когда вы оссвоите азы, обучение не будет требовать больших усилий.
var
s: string;
k, i: integer;
begin
readln(s);
k := 0;
for i := 1 to length(s) do
if s[i] = 'a' then
begin
s[i] := 'b';
k := k + 1;
end
else if s[i] = 'A' then
begin
s[i] := 'B';
k := k + 1;
end;
writeln(s);
writeln(k);
end.
Файл с решением прикреплён.