Палиндром

Да се напише програма, която позволява да се въведе низ и  отпечатва дали той е палиндром. Палиндромът е низ, който прочетен отпред назад и отзад напред е един и същ – например капак.

Публикувано в 10a с етикети . Постоянна връзка.

2 коментара по Палиндром

  1. Svetli каза:
    program Project1;
    var
      duma1,duma2:string;
      i:integer;
    begin
      duma2:='';
      Writeln('Vavedete duma');
      Readln(duma1);
    
      for i:= Length(duma1) downto 1 do
          duma2:=duma2+duma1[i];
    
      if duma1 = duma2 then
         Writeln('Dumata e palindrom')
      else
         Writeln('Dumata ne e palindrom');
    
      Readln;
    end.        
    

Вашият коментар