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

Question

Информатика

Кеша

2 ноября, 10:02

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

+5

Ответы (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

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