palindroma
Publicado por Perfil removido 27/12/2007
[ Hits: 5.268 ]
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...).
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.
vendas de uma empresa em matriz
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Os empreguim de meu Deus estão cada vez mais tecnológicos (0)
Alguém poderia me ajudar a escolher peças pra montar um desktop? (28)
Meu PC perde o boot de várias distros Linux após ficar desligado (4)