Написать программу и блок схему в Pascal: "Дано целое число. Надо проверить это число четное или нет, трехзначное, двухзначное или однозначное число."

Для решения задачи на языке Паскаль, вам нужно написать программу, которая будет проверять, является ли данное целое число четным или нечетным, а также определять, сколько цифр в этом числе — однозначное, двухзначное или трехзначное.

Вот пример программы, которая выполняет эти проверки:

program CheckNumber;
var
    number: Integer;
begin
    Write('Введите целое число: ');
    ReadLn(number);

    { Проверка четности числа }
    if number mod 2 = 0 then
        WriteLn('Число четное')
    else
        WriteLn('Число нечетное');

    { Определение разрядности числа }
    if (number >= 0) and (number < 10) then
        WriteLn('Это однозначное число')
    else if (number >= 10) and (number < 100) then
        WriteLn('Это двухзначное число')
    else if (number >= 100) and (number < 1000) then
        WriteLn('Это трехзначное число')
    else
        WriteLn('Число имеет больше трех цифр или отрицательное');
end.

Блок-схема

1. Начало.
2. Ввод целого числа.
3. Проверка: число четное (number mod 2 = 0)?
   • Если да, вывести "Число четное".
   • Если нет, вывести "Число нечетное".
4. Проверка разрядности:
   • Если 0 ≤ число < 10, вывести "Это однозначное число".
   • Если 10 ≤ число < 100, вывести "Это двухзначное число".
   • Если 100 ≤ число < 1000, вывести "Это трехзначное число".
   • Иначе, вывести "Число имеет больше трех цифр или отрицательное".
5. Конец.

Эта программа и блок-схема помогут вам успешно проверить заданное число на четность и разрядность. Если у вас есть вопросы по какому-либо из этапов, не стесняйтесь спрашивать!