k=4*40*64
i=16 бит
I=ki => (2^2*40*2^7*2^4)/2^3 = 2^10*40 байт (40496)
I=ki => (2^2*40*2^7*2^4)/2^3*2^10= 40*2^3 кбайт (320)
Видимо ты в 4 ответе забыл дописать сотню - 3
Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12
Я разговариваю с соседом, который сидит со мной за одной партой.
Мы видим дежурного и расписание.
Солнечный день радует нас.
Решение во вложении. Не забудьте разрешить исполнение макросов.
Исходную матрицу надо выделить, затем щелкнуть по кнопке, запускающей решение.
Program n1;
var a: array[1..20] of integer;
i,sum: integer;
begin
randomize;
write('исходный массив: ');
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(21);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
writeln('срзнач: ',sum/20);
end.