Программа: Заменить во веденном предложении буквы

Задача: Дано предложение. Заменить в нем все буквы "А" на "О". В данной программе можно заменять любую букву на любую другую.

PROGRAM slovo;
	USES crt;
	var	str,a:string; 
    	i:integer; 
        b:char;
BEGIN
	WriteLn('Введите любое слово: ');
	ReadLn(str);
	WriteLn('Введите заменяемую букву: ');
	ReadLn(a);
	WriteLn('Введите на какую букву заменить: ');
	ReadLn(b);
	for i:=1 to length(str) do
	if str[i]=a then str[i]:=b;
	writeln(str);
	ReadLn;
END.

Просмотрело: 2271

Возможно, Вы искали: