Question

1)Напишите программу,в которой вводится символ,если он находится в интервале '0'. . . '9',то на экран выводится его код,в противном случае на экран выводятся следующие за ним 2 символа 2)Напишите программу,которая при вводе латинской прописной буквы выводит на экран такую же букву,но строчную НА ПАСКАЛЕ!!!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!

Answer 1

//PascalABC.Net 3.1.0.1200
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));
    
    if c in ['A'..'Z'] then
        writeln(LowCase(c));
end.

Answer 2

1) Напишите программу, в которой вводится символ, если он находится в интервале '0'...'9', то на экран выводится его код, в противном случае на экран выводятся следующие за ним 2 символа.

Вот пример программы на Python, которая решает данную задачу:

# Ввод символа
symbol = input("Введите символ: ")

# Проверка, находится ли символ в интервале '0'...'9'
if '0' <= symbol <= '9':
    # Вывод кода символа
    print(ord(symbol))
else:
    # Вывод следующих за символом 2 символов
    next_symbols = symbol + chr(ord(symbol) + 1) + chr(ord(symbol) + 2)
    print(next_symbols)

Программа сначала запрашивает у пользователя ввод символа. Затем она проверяет, находится ли символ в интервале '0'...'9'. Если да, то выводится его код с помощью функции `ord()`. Если символ не находится в этом интервале, то на экран выводятся следующие за ним 2 символа, которые получаются прибавлением 1 и 2 к коду символа с помощью функции `chr()`.

2) Напишите программу, которая при вводе латинской прописной буквы выводит на экран такую же букву, но строчную на языке Pascal.

Вот пример программы на языке Pascal, которая решает данную задачу:

program ConvertToLowerCase;
var
  uppercaseLetter, lowercaseLetter: Char;
begin
  // Ввод прописной буквы
  write('Введите прописную букву: ');
  readln(uppercaseLetter);
  
  // Преобразование в строчную букву
  lowercaseLetter := lowercase(uppercaseLetter);
  
  // Вывод строчной буквы
  writeln('Строчная буква: ', lowercaseLetter);
end.

Программа сначала запрашивает у пользователя ввод прописной буквы. Затем она использует функцию `lowercase()` для преобразования этой буквы в строчную. Наконец, программа выводит полученную строчную букву на экран.

Примечание: В данном примере использован язык Pascal, но подобную задачу можно решить и на других языках программирования, используя соответствующие функции или методы для преобразования регистра символов.