Question

Вводится целое число, если это цифра, то определить четная она или нет, а если число, то определить попадает ли оно в диапазон от 10 до 100, если нет, то выдать соответствующее сообщение. Паскаль

Answer 1

Ответ:

• begin
• var n := ReadInteger('n:');
• if n in 0..9 then Print('Это',n.IsEven?'чётная':'нечётная','цифра')
• else Print('Это число',n in 10..100?'попадает':'не попадает');
• end.

Пример работы:

Answer 2

Конечно, вот пример кода на Pascal, который выполняет указанные вами действия:

pascalCopy code
program CheckNumber;

var
  userInput: string;
  inputNumber: Integer;
  isDigit: Boolean;

begin
  Write('Введите целое число: ');
  Readln(userInput);

  Val(userInput, inputNumber, isDigit);

  if isDigit then
  begin
    if inputNumber mod 2 = 0 then
      Writeln('Число ', inputNumber, ' - четное')
    else
      Writeln('Число ', inputNumber, ' - нечетное');
  end
  else
  begin
    if (inputNumber >= 10) and (inputNumber <= 100) then
      Writeln('Число ', inputNumber, ' попадает в диапазон от 10 до 100')
    else
      Writeln('Число ', inputNumber, ' не попадает в диапазон от 10 до 100');
  end;
end.

Программа начинается с ввода строки userInput, которая затем преобразуется в целое число inputNumber с помощью функции Val. Переменная isDigit указывает, является ли введенное значение цифрой. Затем программа проверяет, является ли введенное значение цифрой или числом, и в зависимости от этого выполняет соответствующие действия.