Создайте программу на языке Паскаль, которая будет определять: является ли данная строка, введенная пользователем, палиндромом. ( ТИП ОБЯЗАТЕЛЬНО CHAR) и использовать функцию Length. Срочно пожалуйста!
Создайте программу на языке Паскаль, которая будет определять: является ли данная строка, введенная пользователем, палиндромом. ( ТИП ОБЯЗАТЕЛЬНО CHAR) и использовать функцию Length. Срочно пожалуйста!
Гость
Ответ(ы) на вопрос:
Гостьprogram z1;
var
s:string;
l:boolean;
i,n :integer;
begin
writeln ('vvedite stroku');
readln (s);
n:=length(s)div 2;
for i:=1 to n do
begin
if s[i]=s[n+1]
then l:=true
else l:=false
end;
if l=true
then writeln ('yes')
else writeln ('no');
end.
Не нашли ответ?
Похожие вопросы