Option Explicit 'Требование описывать все переменные
Private Sub CommandButton1_Click()
Dim n As Integer, i As Integer
Dim x As Double, y As Double, c As Double
n = CInt(Cells(2, 1))
x = CDbl(Cells(2, 2))
y = 0
c = x
For i = 1 To n
y = y + Cos(c)
c = c * x
Next i
Cells(2, 3) = y
End Sub
Не дает прицепить экселевский файл. Поэтому переименовал r1.xslx для Excel2010 в r1.xlsx.pdfю Скачай и убери расширение .pdf в имени.
Или можно сохранить как есть а потом сначала вызывать Эксель и в нем открыть этот файл игнорируя расширение.
На PascalABC.NET, потому что в остальных паскалях функция не может вернуть массив, а по условию она должна его заполнять.
function Init(n: integer): array of integer;
begin
Result := new integer[n];
Result[0] := 9;
for var k := 1 to Result.High do
Result[k] := (5 * Result[k-1] + 7) mod 1000;
end;
function IsSumM(n, M: integer): boolean;
begin
var s := 0;
while n > 0 do
begin
s += n mod 10;
n := n div 10
end;
Result := s = M
end;
begin
var (n, M) := ReadInteger2('Введи n и М');
Init(n).Println.Where(p -> IsSumM(p, M)).Println
end.
гляньте-ка..
еп1012ри