Question

Определить является ли введенная с клавиатуры слово палиндромом и сколько в нем гласных букв.
(написать программу в Pascal ABC)
​

Answer 1

Программа:

Pascal:

var

 i, z: integer;

 s, s0: string;

begin

 write('Введите слово: '); readln(s);

 for i := length(s) downto 1 do begin

   s0 := s0 + s[i];

   if s[i] in ['а', 'о', 'у', 'э', 'ы', 'я', 'ё', 'е', 'ю', 'и', 'А', 'О', 'У', 'Э', 'Ы', 'Я', 'Ё', 'Е', 'Ю', 'И'] then inc(z);

 end;

 if s = s0 then writeln('Это слово - палиндром') else writeln('Это слово - не палиндром');

 writeln('Гласных букв: ', z);

end.