Paskal abc заменить в строке все буквы а на буквы б

MSТигруля MSТигруля    2   02.10.2019 20:20    0

Ответы
levkamorkovka levkamorkovka  09.10.2020 12:27

var

 s: string;

 i: integer;

begin

 Write('s = '); Readln(s);

 for i := 1 to Length(s) do

   if s[i] = 'а' then s[i] := 'б';

 Write(s);

 Readln

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика