Надо написать задачи в "Паскале". Помогите пожалуйста!

Question

Надо написать задачи в "Паскале". Помогите пожалуйста!

---

Comments

если честно то не понимаю что из себя предстовляет задание. Но постаряюсь помочь. Можешь скопировать текст?

---

картинка слишком размазанная

---

ладно не смогу помочь изивините

---

жаль

Answer 1

Наверное так

var
    m: integer;

begin
    write('Введите номер месяца -> ');
    readln(m);
    case m of
        12, 1, 2: write('Это зима');
        3, 4, 5: write('Это весна');
        6, 7, 8: write('Это лето');
        9, 10, 11: write('Это осень');
    else write('Месяца с таким номером не существует');
    end;
end.

Comments

если не ошибаюсь то составное условие это case

Answer 2

Var m:real;
begin
write('введите месяц : ');
readln(m);
if ((m/3 <1) or (m=12)) then write('зима'); <br>if ((m/3 <2) and (m/3 >=1)) then write('весна');
if ((m/3 <3) and (m/3 >=2)) then write('лето');
if ((m/3 <4) and (m/3 >=3)) then write('осень');
end.