8 Мб=8*2^20 байт=2^26 бит
1024/2^17=2^(10+10+3)-17=2^6=64сек
2^26/2^16=2^10=1024сек
1024+64=1088сек
<span>ответ:1088</span>
Pascal
var
a,s : integer;
begin
s := 0;
readln (a);
While a <> 0 do
begin
s := s +a;
readln (a);
end;
writeln (s);
end.
Элементы массива считываются из области ячеек A1:E5. Они могут быть как целочисленными, так и вещественными. Для контрольного решения можно заполнить эти ячейки при помощи макроса InitCells, который выполняет инициализацию случайными числами из интервала [-10;10]
Sub InitCells()
Dim a(1 To 5, 1 To 5)
Randomize Timer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(21 * Rnd - 10)
Next j
Next i
Range("A1:E5") = a
End Sub
Ниже представлен текст программы, вычисляющей значение t по формуле
Sub Main()
a = Range("A1:E5")
s = 0
For i = 1 To 5
p = 1
For j = 1 To 5
p = p * a(i, j)
Next j
s = s + p
Next i
MsgBox "t=" + CStr(s)
End Sub
Во вложении - рабочая книга Excel-2003 с тестовым примером и блок-схемой. Макросы находятся на листе 1 рабочей книги.
JAVA
class Main{
p s v main(String[] args]{
int N, X, Y, S;
Scanner sc = new Scanner(System.in) // Ввод
int toExit = 1;
while(toExit != 0){
N = sc.nextInt();
if(1 <= N =< 50)
tiExit = 0};
int toExit = 1;
while(toExit != 0){
X = sc.nextInt();
if(10 <= N =< 50)
tiExit = 0};
int toExit = 1;
while(toExit != 0){
N = sc.nextInt();
if(5 <= N =< 15)
tiExit = 0};
S = (N * X) + (N * Y);
System.out.print("S: " + S);
}}