Cls
pi=3.141592
for x=0 to 180 step 10
y=x * pi /180
print x, sin(y), cos(y), tan(y)
if tan(y)<>0 then print 1/tan(y) else print "не существ"
next
end
<em>Приведу пример на Паскале.</em>
Var x,y:integer;
Begin
x:=5;
y:=3;
If x>y Then
x:x-y
Else
x:=x+y;
writeln(x);
end.
<em>Исход программы зависит от заданных переменных.</em>
1 МБ = 8 Мбит
Переводим МБ в Мбиты: 10*8=80 Мбит
80/50 = 1.6 сек
Const
N = 13;
Var
A:array[1..N] of integer;
i:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
i:=1;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
WriteLn;
i:=2;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
End.
3 * 1024 = 3072 байт / 1536 = 2
40 мс * 2 = 80 мс