Дистанционная подготовка: Поляков-Еремин Задача №112336. Замена a-b
Поляков-Еремин Задача №112336. Замена a-b
от Екатерина Иванова - Четверг 26 Февраль 2015, 11:25
  Задача элементарная. Разобрана в самом учебнике. Но....
Если ее решать именно как простую задачу из учебника, то проходит всего 13 тестов.
Код программы:
var
st: string;
i,k:integer;
begin
read(st);
k:=0;

for i:=1 to length(st) do
if st[i]='a' then begin
st[i]:='b';
inc(k);
end;

writeln(st);
write(k);
end.

Если применять посимвольное чтение - 22 теста.
Каким может быть 23 тест? Что еще не учтено?
Код программы:
var
st: char;
k, i:integer;

begin
k := 0;
i := 0;

while not eoln() do
begin
read(st);
inc(i);

if st='a' then begin
write('b');
inc(k);
end
else
write(st);
end;

writeln;
write(k);
end.