===== PascalABC.NET =====
= 1 =
begin
var a, b: integer;
var x, z: real;
Write('Введите a, b, x, z: ');
Read(a, b, x, z);
var k := 1.0;
for var d := 1 to b do
begin
var c := 0.0;
for var s := 1 to a do
c += (d * d + x) / (s ** (3 / 2) + z);
k *= c
end;
Println('К =', k)
end.
= 2 =
begin
var b, n: integer;
var x, z: real;
Write('Введите b, n, x, z: ');
Read(b, n, x, z);
var g := 0.0;
for var c := 1 to b do
begin
var p := 1.0;
for var a := 1 to n do
p *= (a * a * a + z) / (c * c + x);
g += p
end;
Println('G =', g)
end.
8 цветов = 1 пиксель log2 8 = 3 бит
640 * 480 = 307200 пикс
307200 * 3 = 921600 бит
512 цветов = 1 пиксель log2 512 = 9 бит
921600 / 9 = 102400 пикс
10 12 14 16 18 20
Получается шесть
Program gt;
var a,b,c,s:real;
begin
read(a,b,c);
if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c;
writeln(s);
end.
249,6, если мы округляем до сотых, то ответ будет равен 249.60