40 ! напишите программу, которая по порядковому номеру месяца выводит на экран время года (через условный оператор if, и с объяснением )

Тут есть несколько вариантов, как это можно записать:

Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы одного года, то вот так:

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 или 2, то выводим 'Зима', иначе идём по следующей ветке if, проверяем следующее условие
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // тут точно также N = 3, 4 или 5, если нет - то проверяем следующее условие
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Если же номер месяца может превысить 12, то перед проверкой нужно найти остаток от деления этого числа на количество месяцев, то есть на 12. При этом остаток от деления 12 на 12 = 0.

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
N:= N mod 12;
if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима')
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна')
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Эти же самые условия можно записать иначе:
if (N>=0)and(N<=2) then
или:
if (N>=0)and(N<3) then

Var n:integer;
begin
write('n = ');
readln(n);
if n in [1,2,12] then writeln('Зима')
else if n in [3,4,5] then writeln('Весна')
     else if n in [6,7,8] then writeln('Лето')
          else if n in [9,10,11] then writeln('Осень')
               else writeln('Ошибка ввода');
end.

Пример:
n = 3
Весна

а) b = 23

б) b = 60

в) b  = 89

г) b = 22

Объяснение:

if a % 10 < 3: b = a * 2

elif a % 10 <= 5; b = a + 10

elif a % 10 <= 7: b = a * 10

else: b = a + 1

Код отделяет последнюю цифру от числа a.

а)

a = 13

a % 10 = 3

if a % 10 < 3: b = a * 2  // Не подходит, так как 3 не меньше 3

elif a % 10 <= 5; b = a + 10  // 3 ≤ 5

b = a + 10 (b = 13 + 10 = 23)

elif a % 10 <= 7: b = a * 10  // Не подходит, так как условие выполнилось раньше

else: b = a + 1 // Не подходит, так как условие выполнилось раньше

б)

a = 30

a % 10 = 0

if a % 10 < 3: b = a * 2  // 0 < 3

b = a × 2 (b = 30 × 2 = 60)

elif a % 10 <= 5; b = a + 10  // Не подходит, так как условие выполнилось раньше

elif a % 10 <= 7: b = a * 10  // Не подходит, так как условие выполнилось раньше

else: b = a + 1 // Не подходит, так как условие выполнилось раньше

в)

a = 88

a % 10 = 8

if a % 10 < 3: b = a * 2  // Не подходит, так как 8 не меньше 3

elif a % 10 <= 5; b = a + 10  // Не подходит, так как 8 не меньше или равно 5

elif a % 10 <= 7: b = a * 10  // Не подходит, так как 8 не меньше или равно 7

else: b = a + 1 // Иначе

b = a + 1 (b = 88 + 1= 89)

г)

a = 11

a % 10 = 1

if a % 10 < 3: b = a * 2  // 1 < 3

b = a × 2 (b = 11 × 2 = 22)

elif a % 10 <= 5; b = a + 10  // Не подходит, так как условие выполнилось раньше

elif a % 10 <= 7: b = a * 10  // Не подходит, так как условие выполнилось раньше

else: b = a + 1 // Не подходит, так как условие выполнилось раньше

Тест 1. Цель информатизации общества заключается в

Варианты ответа:

1 справедливом распределении материальных благ;

2 удовлетворении духовных потребностей человека;

3 максимальном удовлетворении информационных потребностей отдельных граждан, их групп, предприятий, организаций и т. д. за счет повсеместного внедрения компьютеров и средств коммуникаций.

Вопрос:

Тест 2. В каком законе отображается объективность процесса информатизации общества

Варианты ответа:

Закон убывающей доходности.

Закон циклического развития общества.

Закон “необходимого разнообразия”.

Закон единства и борьбы противоположностей.

Вопрос:

Тест 3. Данные об объектах, событиях и процессах, это

Варианты ответа:

1 содержимое баз знаний;

2 необработанные сообщения, отражающие отдельные факты, процессы, события;

3 предварительно обработанная информация;

4 сообщения, находящиеся в хранилищах данных.

Вопрос:

Тест 4. Информация это

Варианты ответа:

1 сообщения, находящиеся в памяти компьютера;

2 сообщения, находящиеся в хранилищах данных;

3 предварительно обработанные данные, годные для принятия управленческих решений;

4 сообщения, зафиксированные на машинных носителях.

Вопрос:

Тест 5. Экономический показатель состоит из

Варианты ответа:

1 реквизита-признака;

2 графических элементов;

3 арифметических выражений;

4 реквизита-основания и реквизита-признака;

5 реквизита-основания;

6 одного реквизита-основания и относящихся к нему реквизитов-признаков.

Вопрос:

Тест 6. Укажите правильную характеристику реквизита-основания экономического показателя

Варианты ответа:

Реквизит-основание определяет качественную сторону предмета или процесса.

Реквизит-основание определяет количественную сторону предмета или процесса.

Реквизит-основание определяет временную характеристику предмета или процесса.

Реквизит-основание определяет связь между процессами.

Вопрос:

Тест 7. Укажите правильную характеристику реквизита-признака экономического показателя

Варианты ответа:

Реквизит-признак определяет качественную сторону предмета или процесса.

Реквизит-признак определяет количественную сторону предмета или процесса.

Реквизит-признак определяет временную характеристику предмета или процесса.

Реквизит-основание определяет составляющие элементы объекта.

Вопрос:

Объяснение: