1) var s:string; i:integer; f:boolean; begin f:=false; write ('S = '); readln(s); for i:=1 to length(s) div 2 do if s[i]=s[length(s)-i+1] then f:=true else begin f:=false; break; end; if f then writeln ('PALINDROM') else writeln ('NOT PALINDROM'); readln; end.
2) var a,b:integer; count,j:integer; function palindr (n:integer):boolean; var s:string; i:integer; begin palindr:=false; str (n,s); for i:=1 to length(s) div 2 do if s[i]=s[length(s)-i+1] then palindr:=true else begin palindr:=false; break; end; end; begin write ('A = '); readln(a); write ('B = '); readln(b); count:=0; for j:=a to b do if palindr(j) then begin write (j,' '); count:=count+1; end; writeln; writeln ('Kol-vo palindromov: ',count); readln; end.
(22//5)*(4**2)*(9%2) даст 64
(71//9)*(5-3)*(16%2) даст 0