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.

Calculo do Fatorial Utilizando-se de for

intercalar dois arrays (vetores)

Cáculo de Fatorial, utilizando-se de Repeat - Until

media/record

Calculadora utilizando until e case

Nenhum comentário foi encontrado.