Определить, является введенное слово перевертышем - вопрос №681670 от Negogda 31.07.2022 09:25

Question

Другие предметы: Определить, является введенное слово перевертышем (потоп, казак). (программа Паскаль)

Negogda · Answer

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.

Определить, является введенное слово "перевертышем" (потоп, казак). (программа Паскаль)