Kód: Vybrať všetko

uses crt;
var s,x,y: string;
    i,j: integer;
    palindera: array[1..10] of string;
    palinderb: array[1..10] of string;
begin
 clrscr;
 readln(s);
  for i:=1 to length(s) do
   x:=palindera[i];
  for j:=length(s) downto 1 do
   y:=palinderb[j];
   writeln(x);
   WRITELN(Y);
  if x=y then writeln('je palindrom')
         else writeln('nie je palindrom');
  readln;
end.

Kód: Vybrať všetko

for i:=1 to length(s) div 2 do begin
   if(s[i] <> s[length(s)-i+1]) begin
         writeln('nie je palindrom');
         exit;
   end;
end;
writeln('palindrom');

Kód: Vybrať všetko

uses crt;
var pocet,mysli,hadaj,i: integer;
    Q: boolean;
begin
 clrscr;
 randomize;
 {myslim si cislo}
 mysli:=random(100)+1;
 i:=0;
 while mysli<>hadaj do
 begin
  readln(hadaj);
  {ak uhadneme cislo}
 if mysli=hadaj then  begin
                      Q:=TRUE;
                      break;
                      end
 {\ak uhadneme cislo}
                 else
                 if hadaj<mysli then writeln('vacsie')
                                else writeln('vacsie');
 inc(i);
 end;
  {vetvenie pri uhadnuti}
  if Q then writeln('uhadol si na ',i,' pokus.')
       else writeln('neuhadol si cislo, cislo je ',mysli);
 readln;
end.