Помогите решить пожалуйста написать алгоритм пожалуйста умоляю !!!!!
Помогите решить пожалуйста написать метод пожалуйста упрашиваю !!!!!
![](/content/imgs/126/https://ru-static.z-dn.net/files/d30/30431f61f8f0309cb663508e9afa4ad5.png)
var
a, b, c: integer;
begin
write('введите номер месяца - ');
readln(a);
case a of
1, 2, 12:
begin
writeln('время года - зима');
if (a = 1) or (a = 12) then write('кол-во дней - 31') else write('кол-во дней - 28')
end;
3, 4, 5:
begin
writeln('время года - весна');
if (a = 3) or (a = 5) then write('кол-во дней - 31') else write('кол-во дней - 30')
end;
6, 7, 8:
begin
writeln('время года - лето');
if (a = 7) or (a = 8) then write('кол-во дней - 31') else write('кол-во дней - 30')
end;
9, 10, 11:
begin
writeln('время года - осень');
if (a = 9) or (a = 11) then write('кол-во дней - 30') else write('кол-во дней - 31')
end;
else write('введен ошибочный номер месяца');
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.