Файл размером 16 Кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 512 бит в секунду.
Во вложении - файл с рабочей книгой в формате MS Excel 2003. Макросы находятся в проекте первого листа.
Sub Ex1() mn = 1000# For x = 0 To 6 Step 0.5 y = Log(x + 3.7) * Cos(x) If y < mn Then mn = y Next x Cells(1, 4) = mn End Sub
Sub Ex2() Dim ay As Variant ay = Array(4, 0.1, 9, 5, 998) i = 5 s = 0# For x = -5 To 5 Step 0.8 For j = 0 To 4 y = ay(j): z = x ^ 3 + y ^ 2 If z > 0 Then z = Sqr(z) s = s + z Cells(i, 1) = x Cells(i, 2) = y Cells(i, 3) = z i = i + 1 Next j Next x Cells(4, 4) = s End Sub
#include <iostream>
#include <cmath>
#include <stdio.h>
using namespace std;
int main() {
int a,b,c,d,r,r2,r3;
cin >> a >> b >> c >> d;
r=min(a,b);
r2=min(r,c);
r3=min(r2,d);
cout << r3;
return 0;
}
Pascal
program Project1;
var a,b,c,d:integer;
begin
readln (a,b,c,d);
if ((a<=b) and (a<=c) and (a<=d)) then begin
writeln (a);
end
else if ((b<=a) and (b<=c) and (b<=d)) then begin
writeln (b);
end
else if ((c<=b) and (c<=a) and (c<=d)) then begin
writeln (c);
end
else begin
writeln (d);
end;
end.