Палиндром

Публикувано на 20 януари, петък от Данаил

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

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

2 Responses to Палиндром

  1. Svetli каза:
    27 януари, петък в 10:32 
    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.

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