1) 30*1024*8 бит .
2) 20*48*16. Занимает одна страница.
3) 30*1024*8/20*48*16.
Ответ:16 страниц
"Последние действие лучше записать дробью и выполнить необходимые сокращение".
=(((3+1/3)+19.5/(4+1/2))/(62/75-0.16))/((3.5+4+2/3+2+2/15)/(0.5*(1+1/20+4.1)))
Ответ: 2.875
Var chisl:array [1..5]of integer;
i,max:integer;
begin
for i:=1 to 5 do begin
Write(i,'-число='); Readln(chisl[i]); end;
max:=0;
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.
R = 6400
pi = 3.14
s = 4 / 3 * pi * r ^ 3
l = 2 * pi * r
PRINT "S="; s
PRINT "L="; l<span>
</span>
Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub