Решите.) паскаль. в предложении заменить буквы о на а.

Question

Информатика

Ванюра

21 мая, 03:39

Решите.) паскаль. в предложении заменить буквы о на а.

+5

Ответы (1)

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

Васята · Answer 1

Var

i:integer;

s:string;

begin

write ('Vvedite text: ') ; readln (s) ;

for i:=1 to Length (s) do

begin

if (s[i]='o') then s[i]:='a';

end;

writeln (s) ;

readln;

end.