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

Question

Информатика

Вася

23 сентября, 10: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.