Решения к уроку 9

Определить, является ли число палиндромом.

 Program pal_1;
  
var a,b,c:integer;
begin

write('Введите целое положительное число a=');
readln(a);

b:=a;
c:=0;

while b>0 do
 begin
  c:=c*10+(b mod 10);
  b:=b div 10;
  Writeln('c=',c,' b=',b);
 end;

writeln(c);

if c=a then write('Палиндром')
else  write('Не палиндром');

end.


Является ли палиндромом слово?

Program pal_2;

var
    s: string;
    i,f: byte;
begin
    write('String: ');
    readln(s);
    f := 0;
    for i := 1 to length(s) div 2 do
        if s[i] <> s[length(s)-i+1] then begin
            writeln('No palindrome');
            f := 1;
            break
        end;
    if f = 0 then
        write('Palindrome');
readln
end.

Является ли палиндромом фраза?

Program pal_3;

var

  

a,b,c: array[1..50] of char;

i,j,k,d:integer;

f,g:text;

    

begin

i:=1;

j:=1;

k:=0;

d:=0;

assign(f,'input.txt');

reset(f);

while not eof (f) do begin

        read (f, a[i]);

       

        If a[i] < > ' ' then 

        begin

        b[ j ]:=a[ i ];

        k:=k+1;

        j:=j+1;

        end;

       

i:=i+1;

                     end;

close (f);

For i:=1 to k do

c[k-i+1]:=b[i];

For i:=1 to k do

If b[i]<>c[i] then d:=d+1; 

assign (g,'output.txt');

rewrite (g);

If d < > 0 then

write (g, 'Ne palindrom')

else write (g, 'Palindrom');

close (g);

end.