С клавиатуры вводится две латинские буквы (неизвестно, больших или малых) Выведете на экран стоит ли в алфавите первая буква перед второй. pascal abc

Question

Информатика

Серж

3 июня, 21:48

С клавиатуры вводится две латинские буквы (неизвестно, больших или малых) Выведете на экран стоит ли в алфавите первая буква перед второй. pascal abc

+4

Ответы (1)

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

Максимильян · Answer 1

Var

c1, c2:char;

begin

Write ('Введите две латинские буквы подряд без пробелов: ') ;

Readln (c1, c2) ;

c1:=UpCase (c1) ; c2:=Upcase (c2) ;

if c1
else

if c1=c2 then Writeln ('Это одна и та же буква')

else Writeln ('Первая буква следует в алфавите после второй')

end.

Тестовое решение:

Введите две латинские буквы подряд без пробелов: Qp

Первая буква следует в алфавите после второй