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

Question

Митрофаний

15 декабря, 22:13

+5

Ответы (1)

Знаете ответ на вопрос?

Петря · Answer 1

Var a: string;

i: integer;

begin

readln (a) ;

for i : = 1 to length (a) do

if (a[i] = 'а') then a[i] : = 'и';

writeln (a) ;

end.