Написать программу которая покажет количество символов в введенном слове и проверяет не совподает ли вторая и предпоследняя буква?

Question

Информатика

Рина

13 января, 12:02

Написать программу которая покажет количество символов в введенном слове и проверяет не совподает ли вторая и предпоследняя буква?

+2

Ответы (1)

Знаете ответ на вопрос?

Данил · Answer 1

Var s:string;

begin

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

writeln ('Количество символов в слове = ', length (s)) ;

if s[2] = s[length (s) - 1] then writeln ('Вторая и предпоследняя буквы совпадают') else writeln ('Вторая и предпоследняя буквы не совпадают') ;

end.