USES Crt;
VAR
A, B : STRING [20]; I, N: BYTE;
BEGIN
ClrScr;
Write('Введите слово '); ReadLn(A);
N:=Length(A);
FOR I:=N DownTo 1 DO
B:=B+A[I];
IF B=A THEN Write('Перевертыш') ELSE Write('Не перевертыш');
END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
