Question

Напишите полноценную программу на паскале для любой задачи 4) запрашивает с клавиатуры у пользователя размер хищений (р.), определяет и выводит на экран масштаб в соответствии с принятой классификацией (например, если размер хищений меньше 100 р. - «мелкий», от 100 до 1000 - «крупный», свыше 1000 - «особо крупный»); 5) выводит на экран приглашение: «Введите месяц», вводит с клавиатуры число X, имеющее смысл месяца, и печатает слова «Зима», «Весна», «Лето», «Осень» в зависимости от введенного месяца. Программа должна реагировать на ввод неправильного месяца: меньше 1 или больше 12; 6) запрашивает у пользователя номер одного из летних месяцев, и выводит количество дней в этом месяце. Программа должна проверять, является ли введенный месяц летним;

Answer 1

// PascalABC.NET 3.6

begin

 var n := ReadInteger('Введите номер летнего месяца:');

 case n of

   6: Print(30);

   7, 8: Print(31)

 else

     Print('Введен недопустимый номер')

 end

end.

Answer 2

Приведенный ниже код на языке Паскаль решает указанные вами задачи:

```pascal
program ClassificationAndSeasons;
var
size: integer;
month: integer;
summerMonth: integer;
begin
// Задача 4
writeln('Введите размер хищений (в рублях): ');
readln(size);
if size < 100 then
writeln('Мелкий')
else if (size >= 100) and (size <= 1000) then
writeln('Крупный')
else
writeln('Особо крупный');

// Задача 5
writeln('Введите номер месяца: ');
readln(month);
case month of
1, 2, 12: writeln('Зима');
3, 4, 5: writeln('Весна');
6, 7, 8: writeln('Лето');
9, 10, 11: writeln('Осень');
else writeln('Ошибка: введите правильный номер месяца (1-12)');
end;

// Задача 6
writeln('Введите номер летнего месяца: ');
readln(summerMonth);
if (summerMonth >= 6) and (summerMonth <= 8) then begin
case summerMonth of
6, 7: writeln('Количество дней в июне или июле: 30');
8: writeln('Количество дней в августе: 31');
end;
end
else
writeln('Ошибка: введите правильный номер летнего месяца (6-8)');
end.
```

Пояснение к коду:
1. Задача 4: В программе сначала получаем значение размера хищений от пользователя с помощью `readln(size)`. Затем проверяем значение с помощью `if` и выводим соответствующее сообщение на экран.
2. Задача 5: Также с помощью `readln(month)` получаем от пользователя номер месяца, а затем используем оператор `case` для вывода соответствующего сезона на экран в зависимости от введенного месяца.
3. Задача 6: Пользователь вводит номер летнего месяца с помощью `readln(summerMonth)`. Затем мы проверяем, является ли введенный месяц летним, и выводим количество дней, соответствующее этому месяцу. Также мы используем оператор `case` для вывода нужного сообщения на экран.

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