Var A:integer; Begin Read(A); A:= A mod 12; if (A>=0)and(A<3) then Write('Зима'); if...

Question

Var A:integer; Begin Read(A); A:= A mod 12; if (A>=0)and(A<3) then Write('Зима'); if (A>2)and(A<6) then Write('Весна'); if (A>5)and(A<9) then Write('Лето'); if (A>8)and(A<=11) then Write('Осень'); End. Для чего нужно "A:= A mod 12" ??? Срочно

Comments

Напишите  программу,  которая  вводит  номер  месяца  и  выводит  название  времени  года.Оператор выбора использовать не разрешается. При вводе неверного номера месяца долж‐но быть выведено сообщение об ошибке.

---

Если А=11 то будет А:=11 mod 12=0.9 и что мне это дает?

Answer 1

Var n: integer;
    s: array[0..3] of string = ('зима','весна','лето','осень');
begin
  write('месяц: ');  readln(n);
  if n in [1..12] then
  begin
    n:=n mod 12;
    writeln(s[n div 3]);
  end
  else writeln('не верный ввод');
end.

месяц: 12
зима

месяц: 15
не верный ввод