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.

Cronômetro feito no Lazarus(Delphi 7 para Linux)

escreve os números de 1 a 9 com repeat - until

mostrar a meior e a menor temperatura do ano com vetor

média de uma turma

Cadastro de Passagens Aéreas

Nenhum comentário foi encontrado.