Dim s As Integer, sum As Single
s = 44
If s Mod 2 = 1 Then
sum = Sin(s * 3.14 / 180) + Cos(s * 3.14 / 180)
Else
sum = Abs(s)
End If
MsgBox sum
'задач 3
Dim s As Integer, sum As Integer, i As Integer, j As Integer
Do While i < 21
sum = sum + j
Cells(i + 1, 1) = i
Cells(i + 1, 2) = j
Cells(i + 1, 3) = sum
i = i + 1
j = j + 3
Loop
'задач 4
Dim x As Integer, sum As Single, i As Integer, n As Integer
x = 30
n = CInt(InputBox("Введите n"))
For i = 1 To n
sum = sum + Sin(i * x * 3.14 / 180)
Next i
MsgBox sum
64 · 64 · 8 · 1024 = 2⁶ · 2⁶ · 2³ · 2¹⁰ = 2⁶⁺⁶⁺³⁺¹⁰ = 2²⁵ бит
2²⁵ / 2³ байт = 2²⁵⁻³ байт = 22²² байт =
= 2²² / 2¹⁰ Килобайт = 2²²⁻¹⁰ Килобайт = 2¹² Килобайт =
= 2¹² / 2¹⁰ Мегабайт = 2² Мегабайт = 4 Мегабайт
<h2>Ответ</h2>
4
Зайди в Настройки.потом зайди "об устроистве" там разберешся
Потребительский кредит - кредит, предоставляемый непосредственно гражданам или домашним хозяйствам для приобретения предметов потребления
Var
<span>s1,s2: string; </span>
<span>begin </span>
<span>Write( 's1: ' ); </span>
<span>ReadLn(s1); </span>
<span>Write( 's2: ' ); </span>
<span>ReadLn(s2); </span>
<span>if s1[ 1 ] = s2[ length(s2) ] then </span>
<span>write( 'Da' ) else write( 'Net' ); </span>
<span>ReadLn; </span>
<span>end. </span>