Запишите фрагмент программы,который позволит для заданного пятизначного числа,определить,является ли оно палиндромом.
Answers & Comments
Pashq4
Var c: string; begin write('Введите пятизначное число: '); readln(c); if ( c[1] = c[5] ) AND ( c[2] = c[4] ) then writeln('Число является палиндромом!') else writeln('Число не является палиндромом!'); end.
Answers & Comments
begin
write('Введите пятизначное число: ');
readln(c);
if ( c[1] = c[5] ) AND ( c[2] = c[4] ) then writeln('Число является палиндромом!')
else writeln('Число не является палиндромом!');
end.