ПОЖАЛУЙСТА ПОМОГИТЕ, КОМУ НЕТРУДНО!!! СТАВЛЮ МНОГО БАЛЛОВ!!
Напишите программу, которая во введённой символьной строке заменяет все буквы а на буквы б и наоборот. Заглавные на заглавные, строчные на строчные.
PascalABC.Net
var
str : string;
i : integer;
begin
write(Введите строку: );
readln(str);
for i := 1 to length(str) do
case str[i] of
а : str[i] := б;
А : str[i] := Б;
б : str[i] := а;
Б : str[i] := А;
end;
writeln(str);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
