// С циклом:
type Linia=array[1..7] of integer;
var
x, y : Linia;
Proizvedenie, i: integer;
begin
Proizvedenie := 1;
for i := 3 to 7 do
begin
Proizvedenie := Proizvedenie * y[i];
end;
WriteLn(Proizvedenie);
end.
// Без цикла
type Linia=array[1..7] of integer;
var
x, y : Linia;
Proizvedenie, i: integer;
begin
Proizvedenie := y[7] * y[6] * y[5] * y[4] * y[3];
WriteLn(Proizvedenie);
end.
Так?
//Pascal
var
a, h, x, y: real;
begin
write('a = ');
readln(a);
write('h(шаг) = ');
readln(h);
writeln('x':5,'y':8);
x := -3;
while x <= 4 do
begin
y := a * (x * x * x);
writeln(x:7:2, y:10:2);
x := x + h;
end;
end.
i=6
v=i*k
v=6*2048=12288 бит=1536 байт=1,5 кбайт
Ответ: 1.5кбайт
<span>//Java
class Main {
public static void main(String[] args){
int[] a = new int[new java.util.Random().nextInt(10)];
int b = 1;
for (int i = 0; i < a.length; i++) {
a[i] = new java.util.Random().nextInt(9) + 1;
System.out.print(a[i] + " ");
b *= a[i];
}
System.out.print("\nmulti: " + b);
}
}
Проверка:
$ java Main.java
2 7 4
multi: 56</span>
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
double W, t, r, y;
cin >> t;
cin >> r;
cin >> y;
W = (4 * pow(t, 3) + log(r)) / (exp(y+r)+7.2*sin(r));
cout << W;
}