- Код: Выделить всё
{ P_20_2.pas }
var S: string; k: integer;
procedure Scan(var arg : string);
var k: integer;
begin
for k:=1 to Length(arg) do
if arg[k]='A' then arg[k]:='B';
end;
begin
for k:=1 to 3 do begin
Write('Введите строку: '); Readln(S);
Scan(S);
Writeln(S);
end;
end.
по идее она должна преобразовать буквы "а" в буквы "b" и повторятся 3 раза.
вот как она работает у меня:
Введите строку: abba
abba
Введите строку: qaaaw
qaaaw
Введите строку: manana
manana
копировал с учебника букву в букву исходный код, попробуйте у себя эту прорамму. Если тоже не работает подскажите что надо изменить, и желательно с объеснениями, чтоб потом не повторялось тоже самое.
