Написать программу ввода с клавиатуры символов латиницы. На экран монитора выводить значение ‘true’, если буква прописная, и ‘false’, если – заглавная. Ввод продолжать до нажатия ‘Home’ на дополнительной клавиатуре- Pascal(Паскаль)

program lab8;

uses crt;

var
  c: char;
  v: integer;

begin
  repeat
    writeln('symbol');
    c := readkey;
    v := ord(c);
    if (v > 97) and (v < 122) then
      writeln('true')
    else
      writeln('false');
  until v = 71;

end.

Leave a Comment

9 + 1 =