Question

Elaborati un program in limbajul Pascal cu conditia: Se da un text.Sa se inlocuiasca toate literele 'a' cu 'o'

Answer 1

Daca e string atunci se face asa : var s:string ; i:byte ; Begin read(s) ; For i := 1 to length (s) do If pos ( a [i], 'a')<> 0 then a [i]:= 'o'; Write (s); end. Daca e string , asta e singura solutie :)