Var
a, i: integer;
begin
a:=0;
i:=10;
repeat
if ((i mod 3) = 0) then
a:=a+1;
i:=i+1;
until i = 100;
writeln(a);
<span>end.</span>
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
В паскале переменную x выведет оператор writeln.
выглядит так:writeln(x);
Если 1 байт равен 8 бит
8*33*64/1024 = 16,5 Кб
Запишем разложение числа 57 в записи системы счисления с основанием N:
2N² + 1N¹ + 2N° = 57
2N² + N + 2 = 57
Решаем квадратное уравнение:
2N² + N + 2 - 57 = 0
2N² + N + - 55 = 0
D= 1+4*2*55 = 441
N₁ = (-1+21)/4 = 5
N₂ = (-1-21)/4 = -5.5
Второе значение не подходит (отрицательное), значит N = 5
Ответ: <span>основание системы счисления равно 5</span>