Function fact(n As Integer) As Long
Dim i As Integer, p As Long
p = 1
For i = 2 To n
p = p * i
Next i
fact = p
End Function
Sub Test()
Dim n As Integer, s As Long, i As Integer
s = 0
n = CInt(InputBox("Введите число n"))
For i = 1 To n
s = s + fact(i)
Next i
MsgBox s
End Sub
1. Отображение фрагмента содержимого памяти работающего компьютера.
2. Картина чередующихся впадинок на лазерном диске, видимая под увеличением.
3. Алгоритм, записанный на незнакомом языке программирования.
Var
t, n: real;
begin
Write('Введите время работы в часах: ');
Readln(t);
n := Int(t * 60 / 7) * 3; { каждая машина сделает целое количество тарелок }
Writeln('Будет сделано тарелок- ', n)
end.
Тестовое решение:
Введите время работы в часах: 3.5
Будет сделано тарелок- 90
Любая информация является таковой только по причине того что она была принята отнеконго источника. То есть была передана.