1. Тип Byte так как 32<256
2. Радиус Земли в метрах около 6400000 вполне подойдет integer
3. Масса человека в граммах - <span>integer
4. </span>Температура воздуха в градусах Цельсия в любой из дней в году - integer
5. Количество праздничных дней в году - Byte
6. произведение всех чисел от 1 до 100 - word
7. сумма двух произвольных чисел из отрезка от -200 до 200.
- integer
534;;:5)))7&;45;4533;446$$78(5544533445433;)6готово
// 30° = π/6, 60° = π/3
Program goldobin5;
uses crt;
begin
clrscr;
writeln('Y=',(sqrt(sin(pi/6))+sqrt(abs(32-6*8)))/(sqr(sqr(sin(pi/3)))));
end.
Результат:
Y= 8.368189833220529e+00
Заполни ячейки A2, B2, C2
Sub Calculate() 'Начало процедуры
Dim deposit As Integer 'величина вклада
Dim period As Integer 'срок вклада
Dim percent As Integer 'годовая процентная ставка
Dim day_percent As Double 'ежедневная процентная ставка
Dim profit As Double 'доход
Dim result As Double 'итог
deposit = Cells(2, 1).Value 'присваиваем величине вклада значение ячейки А2
period = Cells(2, 2).Value 'присваиваем сроку вклада значение ячейки B2
percent = Cells(2, 3).Value 'присваиваем годовой процентной ставке значение ячейки C2
day_percent = period * percent / 365 'ежедневная процентная ставка = срок вклада (умножаем) на годовую процентную ставку и (делим) на 365 дней
profit = deposit * day_percent / 100 'доход = величина вклада (умножаем) на ежедневную процентную ставку и (делим) на 100%
result = deposit + profit 'Итог = величина начального вклада (плюс) доход
Cells(6, 3).Value = profit 'заносим доход в ячейку C6
Cells(7, 3).Value = result 'заносим итог в ячейку C7
End Sub 'Конец процедуры
