Помогите, пожалуйста, решить задачу на Паскале.Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо.При условии, что выполнение цикла будет закончено после найденной неравной пары.
Помогите, пожалуйста, решить задачу на Паскале.Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо.При условии, что выполнение цикла будет закончено после найденной неравной пары.
Гость
Ответ(ы) на вопрос:
Гостьprogram lena1PL;
var s:string;
i,c:integer;
begin
readln(s);
for i:=1 to (length(s) div 2) do
if 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.
Не нашли ответ?
Похожие вопросы