Написал на паскале
const N = 12;
var i, sum:integer;
average:real;
A:array[1..N] of integer;
begin
for i:=1 to N do begin
A[i]:=random(101);
sum:=A[i]+sum;
write(A[i], ' ');
end;
writeln();
average:=sum/N;
for i:=1 to N do begin
if A[i] > average then
writeln(A[i]);
end;
end.
var i,j:integer;
begin
for i:=0 to 3 do
begin
for j:=i to 2 do write (' ');
write('/');
for j:=1 to i do write (' ');
write('\');
writeln;
end ;
for i:=0 to 3 do
begin
for j:=1 to i do write (' ');
write('\');
for j:=i to 2 do write (' ');
write('/');
writeln;
end ;
end.
64000:8=8000байт
8000:1000=8Кбайт
16*8=128 Кбайт
ответ:128
Ответ:
Sub F(x)
If x > 0 Then y = Exp(x)
Else
If x < 0 Then y = Tan(x)
End If
End Sub
Объяснение:
Простейшие встроенные функции для и tg x.