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.

Rompecompiladores Ackerman

Array de números aleatórios não-repetidos de um intervalo em Pascal

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

média de uma turma

Calculadora usando procedures

Nenhum comentário foi encontrado.