Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
Ты хоть сама поняла что написала извиняюсь конечно
Вид семья хищных животных
<span>function Power(x,y:real):real;
{ (C) Puporev }
begin
if x=0 then
Power:=0
else
if x>0 then
Power:=exp(ln(x)*y)
else
Power:=-exp(ln(abs(x))*y);
end;
var
x,y:real;
begin
readln(x,y);
writeln(power(x,y));
end<span>.</span></span>
1.
Var a:array [1..1000] of integer;
S,i,n:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+a[i];
Writeln (S);
end.
2.
Var n,S,i:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+(1/i);
Writeln (S);
end.
3.
3 ч - 2шт
6 ч - 4шт
9 ч - 8шт
12ч - 16шт
15 18 21 умножается на 2
24ч - 256шт