Технический форум - Палиндром, Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Палиндром, Pascal (http://www.tehnari.ru/f41/t59267/)

Ильгиза

02.11.2011 19:18

Палиндром, Pascal

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

Vladimir_S

02.11.2011 19:53

Цитата:

Сообщение от Ильгиза (Сообщение 610923)

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

Например, так:

Код:

var

 s:string;

 i:byte;

 b:boolean;

begin

 write('N= ');

 readln(s);

 b:=true;

 i:=0;

 Repeat

  Inc(i);

  If s[i]<>s[Length(s)-i+1] then b:=false;

 Until (Not(b)) or (i=(Length(s) div 2));

 If b then Writeln('Yes!') else Writeln('No!');

 readln

end.

Ильгиза

06.11.2011 16:59

Спасибо большое!!!!

Часовой пояс GMT +4, время: 07:23.