С клавиатуры вводится две латинские буквы(неизвестно, больших или малых) Выведете **...

Question

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

Comments

Какой именно текст сообщения вывести?

---

Понятно...

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
Первая буква следует в алфавите после второй