Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 14 vistas

    Ejercicios Programacion.

    Cargado por

    Luis Alejandro

    Copyright:

    © All Rights Reserved
    Descargue como TXT, PDF, TXT o lea en línea desde Scribd

    Ejercicios Programacion.

    Cargado por

    Luis Alejandro
    14 vistas1 página

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    TXT, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Copyright:

    © All Rights Reserved
    Descargue como TXT, PDF, TXT o lea en línea desde Scribd
    Descargar como txt, pdf o txt
    14 vistas1 página

    Ejercicios Programacion.

    Cargado por

    Luis Alejandro

    Copyright:

    © All Rights Reserved
    Descargue como TXT, PDF, TXT o lea en línea desde Scribd
    Descargar como txt, pdf o txt
    de 1

    Bachiller: Luis Alejandro Chaparro Nieves. CI:30.493.

    274

    1.

    program palindrome;

    uses
    crt;
    var
    palabra: string;
    i, l, CONT: integer;

    begin
    CONT:=0;
    writeln(' Introduzca una palabra');
    readln(palabra);
    l:= length(palabra);

    for i:= 1 to length(palabra) do


    begin
    if (palabra[i] = palabra[l]) then
    CONT:= CONT+1;
    l:= l-1;
    end;
    clrscr;
    if (CONT = length(palabra)) then
    writeln('La palabra ', palabra, ' es palindrome')
    else
    writeln('La palabra ',palabra, ' no es palindrome');
    readln;

    end.

    También podría gustarte