Programa simples que lê uma string e verifica se é um palíndroma.

Palíndroma é uma palavra que é igual se lida ao contrário (ex. ana;lol;ata...).

• Download PALINDRO.PAS
• Enviar nova versão

Esconder código-fonte

program pa;

var frase,n2,t:string;
i,x:integer;

begin
 clrscr;
 readln(frase);
 x:=length(frase);
 for i:=x downto 1 do
 begin
  t:=copy(frase,i,1);
  n2:=n2+t;
  end;
 writeln(n2);
 if n2=frase
  then writeln(frase,' e um palindroma')
  else writeln(frase,' n e um palindroma');
 readln;

end.

Programa que realiza o reajuste salarial de acordo com o cargo

calculo da somatoria da diagonal principal

Tratamentos de Erros

média dos numeros informados em posiçoes pares em um vetor

Script Copa do Mundo

Nenhum comentário foi encontrado.