var s:string; begin assign(input, 'input.txt');reset(input); assign(output, 'output.txt');rewrite(output); read(s); if (s[1]=s[4]) and (s[2]=s[3]) then write('Polindrom') else write('ne polindrom'); close(input); close(output); end.
program Example1; var chyslo, i, ch: integer; chyslo_reverse, b, c: string; begin Randomize; chyslo:=Random(9000) + 1000; Writeln('Число: ', chyslo); ch:=chyslo; for i := 1 to 4 do begin Str(chyslo mod 10, b); chyslo_reverse:=chyslo_reverse + b; chyslo:=chyslo div 10; end; Str(ch, c); if chyslo_reverse = c then Writeln('Данное число - паллиндром'); else Writeln('Данное число - не паллиндром'); Readln; end.
Добавлено (12.10.2012, 18:34) --------------------------------------------- McFly91, через стринг как-то мудрено. Лучше выделить цифры, записать их наоборот, и домножить на разряды.
program ololol; uses crt; var a,b1,b2,b3,b4,c1,c2,c3,c4,d,e,f,g,h:integer; begin randomize; a:=random(8999)+1000; b4:=a mod 10 ; b1:=a div 1000 ; b2:=(a div 100) mod 10; b3:=(a mod 100) div 10 ; c1:=b4*1000+b3*100+b2*10+b1; if a = c1 then Writeln (a,'yes!') else writeln (a,'no!'); end.
