Помогите, пожалуйста, решить задачу на Паскале

Помогите, пожалуйста, решить задачу на Паскале. Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справаналево и слева направо. При условии, что выполнение цикла будет закончено после найденной неравной пары.

в избранное

mackamuro

27 августа 2022

Program lena1PL; var s: string; i,c: integer; beginreadln (s); for i: =1 to (length (s) div 2) doif s[i]=s[length (s) -i+1] then inc (c,1) else begin writeln ('HET'); exit; end; if c=(length (s) div 2) then writeln ('DA'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Задача «Вирусы» Для моделирования различных объектов часто применяются так называемые клеточные поля

Даны три действительных числа x,y,z. Вычислить и напечатать следущую величину max (x+y+z,xyz)

Метеорологическая станция ведет наблюдение за направлением ветра

Почему не погибла от пожара библеотека царя ашшурбана пала?

Измеряется температура воздуха, которая может быть целым числом от 30 градусов до 34 градусов

Пользуясь кодовой страницей Windows — 1251 таблицы кодировки ASCII, получить шестнадцатеричный код словаИНФОРМАТИЗАЦИЯ

В какой части рабочего стола Windiws отражаются ярлыки активных приложений?

В одном из представлений кодировки Unicode на каждый символ отводится 2 байта

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: