Предмет: Информатика,
автор: nozik1301
Free pascal. Написать программу детектирования слова-полиндрома
Ответы
Автор ответа:
0
Написал я Вам программу, у себя проверил - работает, думаю и у вас должно.
Program Palindrome_or_not;
var
s: string;
i,f: byte;
begin
write('Введите слово: ');
readln(s);
f := 0;
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s)-i+1] then begin
writeln('Введённое слово не является палиндромом');
f := 1;
break
end;
if f = 0 then
write('Введённое слово является палиндромом');
end.
Надеюсь помог, удачи :)
Program Palindrome_or_not;
var
s: string;
i,f: byte;
begin
write('Введите слово: ');
readln(s);
f := 0;
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s)-i+1] then begin
writeln('Введённое слово не является палиндромом');
f := 1;
break
end;
if f = 0 then
write('Введённое слово является палиндромом');
end.
Надеюсь помог, удачи :)
Похожие вопросы
Предмет: Алгебра,
автор: karenmalkhasyan27
Предмет: География,
автор: vovamalakchi2707
Предмет: Английский язык,
автор: s8r1102f
Предмет: Алгебра,
автор: Аноним
Предмет: Химия,
автор: Аноним