В заданном тексте букву "а" заменить на "А"

@oleg1995 · Регистрация: 22.01.2013

Author24 — интернет-сервис помощи студентам

Составить программу в которой в заданном тексте букву << а >> заменить на << А >>

@Gidropon · 19.05.2013, 18:13

Сообщение от oleg1995

Составить программу в которой в заданном тексте букву << а >> заменить на << А >>

Pascal

program xxx;
 
var s : string;
        i : integer;
 
begin
write('Введите строку: ');
readln(s);
for i := 1 to length(s) do
    begin
        if s[i] = 'а' then 
            s[i] := 'А';
    end;
writeln('Полученная строка: ',s);
readln;
end.

ЗЫ : работает с русскими буквами.

@BAAAAAas · 19.05.2013, 18:13

Pascal

1 2	for i:=1 to length(s) do if s[i]='а' then s[i]:='А'

@oleg1995 1 / 1 / 2 Регистрация: 22.01.2013 Сообщений: 49
		1
	В заданном тексте букву "а" заменить на "А" 19.05.2013, 18:02. Показов 2149. Ответов 2 Метки нет (Все метки) Составить программу в которой в заданном тексте букву << а >> заменить на << А >> 0

	19.05.2013, 18:13

В заданном тексте букву "а" заменить на "А"

Решение