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"

126

299

Посмотреть ответы 2

Ответы на вопрос:

Ildarbagin

Информатика

4,6(82 оценок)

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 не верный ввод