Программа Паскаль. Проверить, является ли последовательность чисел и букв полиндромом. Желательно с объяснением, что и почему так написали. Заранее спасибо!
Ответы на вопрос
Ответил StellarisY
1
Ответ:
var
s: string;
f: boolean;
len, i: byte;
begin
write('Введите вашу строку: ');
readln(s); //ввод строки
len := length(s); //определение длины строки
f := true; //флажок палиндрома
for i := 1 to len div 2 do
if s[i] <> s[len-i+1] then begin //в цикле сравнивается первая половина строки со второй в обратную сторону
writeln('Не палиндром'); //если сталкивается с несовпадением, то флажок меняется на false
f := false;
break;
end;
if f = true then
writeln('Палиндром');
end.
Объяснение:
Новые вопросы