Free pascal. Написать программу детектирования слова-полиндрома
Aillianna:
да это сто раз решалось. кстати в каком именно паскале?
Ответы
Ответ дал:
0
var
s: string;
i: integer;
begin
writeln('Введите строку:');
readln(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('не палиндром');
Halt;
end;
writeln('палиндром');
end.
s: string;
i: integer;
begin
writeln('Введите строку:');
readln(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('не палиндром');
Halt;
end;
writeln('палиндром');
end.
Вас заинтересует
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
7 лет назад