Объясните, что в этой задачи B после цикла for . 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.
После выполнения цикла for в данной программе в переменной B окажется перевёрнутое введённое слово. Допустим, если ввод был "Pascal", то в B окажется "lacsaP".