Materia de PSI - Programa
Posted by Paulo Ramos & João Martins | Posted in | Posted on 01:04
0
Escreva um procedimento que receba uma string ‘S’ e converta a mesma para letra maiuscula
lProcedure mai (var S:string);
lVar I,tam:byte;
lBegin
lTam:=lenght (s)
lforI:=1 to tam do
lS[i]:=upcase (s[i]);
lEnd;
Comments Posted (0)
Enviar um comentário