Write a program that enters a character if it is in the range ‘0’. … … ‘9’, then its code is displayed on the screen

univerkov | April 1, 2021 | education

Write a program that enters a character if it is in the range ‘0’. … … ‘9’, then its code is displayed on the screen, otherwise the following 2 characters are displayed on the screen

var c: char;
begin
readln (c);
if c in [‘0’..’9′] then
writeln (ord(c))
else
writeln(chr(ord(c)+1), chr(ord(c)+2));

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.