Ответ:
PascalВыделить код
1
prorgam sp;
2
var A: array [1..10] of integer;
3
I,S: integer;
4
begin I:=0;
5
for I:=1 to 10 do S:=S+A[I];
6
writeln ('summa=',S);
7
end
Объяснение:
Первое задание
VARx, y : real;
BEGIN
readln(x);
if x <= -1 then y:= -1/(x*x*x)else if x <= 2 then y:= x*x else y:=-4;
writeln(y:0:8)
END.
дальше еще скину
program task;
var a,b,c,x:real;
begin
readln(a,b,c);
x:=sqrt(4*a*c+b);
writeln(x)
end.
512 гбит / 8 = 64 Гбайта
64 Гбайта * 1024 = 65536 килобайт
65536 * 1024 = 67108864 байт
67108864 = 2 в степени 26
Ответ 26