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

Question

Минуша

20 февраля, 06:16

+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.