var s : string; i : integer; f : boolean; begin readln (s); writeln ('Тут ', length (s), ' символов'); f := true; for i := 1 to length (s) div 2 do if s[i] <> s[length (s) - i 1] then f := false; writeln ('Это слово является перевертышем: ', f); //True/False end.//пишет истина или ложь
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
