Задание 2.
Vi:
1. 109%.
2. 76%.
3. 88%.
4. 84%.
5. 116%.
6. 87%.
7. 111%.
8. 110%.
9. 99%.
10. 101%.
11. 100%.
12. 112%.
Максимум: 12. Декабрь - 112%.
Среднее: 92%.
Oi:
1. Нет - -9%.
2. Есть - 24%.
3. Есть - 12%.
4. Есть - 16%.
5. Нет - -16%.
6. Есть - 13%.
7. Нет - -11%.
8. Нет - -10%.
9. Есть - 1%.
10. Нет - -1%.
11. Нет - 0%.
12. Нет - -12%.
Максимум: 2. Февраль - 24%.
Среднее: 0.6%.
Первое не могу сделать, так как не понимаю sin и cos.
Var
a:integer;
begin
write('Введите номер месяца: ');
readln(a);
case a of
1: writeln('Январь.31 день');
2: writeln('Февраль.29 дней');
3: writeln('Март.31 день');
4: writeln('Апрель.30 дней');
5: writeln('Май.31 день');
6: writeln('Июнь.30 дней');
7: writeln('Июль.31 день');
8: writeln('Август.31 день');
9: writeln('Сентябрь.30 дней');
10: writeln('Октябрь.31 день');
11: writeln('Ноябрь.30 дней');
12: writeln('Декабрь.31 день');
end;
end.
2.
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
case a of
1: write(a, ' Копейка');
2..4: write(a, ' Копейки');
5..20: write(a, ' Копеек');
end;
end.
<span>Программа, позволяющая набрать текст, отредактировать его, отформатировать, распечатать и сохранить.
</span><span>Текстовый редактор - это программа, позволяющая набрать текст, отредактировать его, отформатировать, распечатать и сохранить. </span>