Все категории

4 года назад

Помогите решить в VBA дано натуральное число n вычислить 12+23*4+...+n(n+1)...2n

Знания

Информатика

1 ответ:

Matusja4 года назад

0 0

Sub abcd()

n = CInt(InputBox("Введите натуральное n"))

s = 0#

For i = 1 To n

p = 1#

For j = i To 2 * i

p = p * j

Next j

s = s + p

Next i

MsgBox s

End Sub

Читайте также

В 10А учится 29 человек. Оказалось, что в Инстаграм зарегистрировано 14 человек, а ВК - 15, еще 14 есть в «Одноклассниках». Одно

Aanatoli [12.2K]

верно только 5, остальное ложь

0 0

4 года назад

Как можно на фото поставить надписи на телефоне,в фото галереи

sewada

Эту надпись написали через в вк
на копмпе заходишь, открываешь фото, жми изменить фото, а дальше изменяй

0 0

4 года назад

Помогите ПЖ СРОЧНО. 4 и 5 задание.Можете хотя бы 1 сделать если лень 2 сделать.Заранее спасибо

kot756123 [7]

4 задание вроде как 1100 но это не точно

0 0

4 года назад

помогите решить задачки по Паскалю"4":Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее испо

Kvanarin

program z1;
uses crt;
var n,i,s:integer;
begin
writeln('введите n');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.

0 0

4 года назад

Ан массив целых чисел n=14 заполненный случайным образом числами из промежутка [-15 30] 1) удалить последний четный элемент 2) п

Baltazar1969 [458]

var

i,k:integer;

a:array [1..14] of integer;

begin

k:=0;

for i:=1 to 14 do

begin

a[i]:=random(46)-15;

write(a[i]:3);

if a[i] mod 2=0 then k:=i;

end;

if k>0 then

begin

for i:=k to 13 do a[i]:=a[i]+1;

a[14]:=0;

end;

writeln;

for i:=1 to 14 do write(a[i]:3);

end.

var

i,k:integer;

a:array [1..14] of integer;

begin

for i:=1 to 14 do

begin

a[i]:=random(46)-15;

write(a[i]:3);

end;

for i:=1 to 7 do

begin

k:=a[i];

a[i]:=a[i+7];

a[i+7]:=k;

end;

writeln;

for i:=1 to 14 do write(a[i]:3);

end.

0 0

4 года назад

Помогите решить в VBA дано натуральное число n вычислить 1*2+2*3*4+...+n(n+1)*...*2n

Помогите решить в VBA дано натуральное число n вычислить 12+23*4+...+n(n+1)...2n