Объясните, что в этой задачи 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.

enatusya55    1   15.07.2020 17:27    1