Составьте программу,выясняющую,является ли данное слово перевертышем(так называются слова,читвющиеся одинаково слева направо и справа налево, например:топот,шалаш)
//PascalABC.NET 3.0
begin
var s := ReadString(Введите слово:);
for var i := 1 to s.Length div 2 do
if s[i] <> s[s.Length - i + 1] then
begin
write(Не перевертыш);
exit;
end;
write(Перевертыш)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
