паскаль абц

входные данные

входная строка содержит символы латинского алфавита, как строчные, так и заглавные.

выходные данные

программа должна вывести в первой строке получившуюся в результате обработки символьную строку, а во второй – количество выполненных замен.

var

s: string;

i,k,l: integer;

begin

readln(s);

l: =length(s);

k: =0;

for i: =1 to l do

case s[i] of

'a': begin s[i]: ='b'; inc(k); end;

'a': begin s[i]: ='b'; inc(k); end;

'b': begin s[i]: ='a'; inc(k); end;

'b': begin s[i]: ='a'; inc(k); end;

end;

s.println;

k.print

end.

выдает ошибку по времени, как можно сократить?

гуудик    3   13.11.2019 16:22    2