Программа Паскаль. Проверить, является ли последовательность чисел и букв полиндромом. Желательно с объяснением, что и почему так написали. Заранее спасибо!
Ответы
Ответ дал:
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.
Объяснение:
Вас заинтересует
11 месяцев назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад