Замена букв в слове

@akeko · Регистрация: 30.10.2012

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

Составьте программу меняющую в слове Х букву "а" на букву "о", если "а" стоит на четном месте.

@CodeR · 26.12.2012, 11:06

Pascal

Var x:string;
    i:byte;
Begin
    write('Введите слово: ');readln(x);
    For i:=1 to Length(x) do
     if (x[i]='a')and(i mod 2 = 0) then x[i]:='o';
    writeln('Полученное слово = ',x);
    readln;
End.

@akeko 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 33
		1
	Замена букв в слове 26.12.2012, 10:45. Показов 1682. Ответов 1 Метки нет (Все метки) Составьте программу меняющую в слове Х букву "а" на букву "о", если "а" стоит на четном месте. 0

	26.12.2012, 11:06

Замена букв в слове

Решение