<em>MS DOS QBasic 1.0</em>
CLS
pi = 4 * ATN(1)
FOR x = pi / 6 TO pi / 3 STEP pi / 30
y = TAN(x) - 2 * x - TAN(pi / 6) + pi / 3
PRINT x, y
NEXT x
<u>Результат
</u> .5235988 0
.6283185 -6.024725E-02
.7330383 -9.582524E-02
.8377581 -9.505627E-02
.9424778 -3.872636E-02
1.047198 .1075031
Var
a: array [1..5] of integer;
s, i: integer;
begin
for i:=1 to 5 do
begin
write('Введите значение: ');
read(a[i]);
if a[i]>0 then s:=s+a[i];
end;
writeln('Сумма положительных членов массива: ', s);
<span>end.</span>
Задание лишено смысла, т. к. символ никогда не кодируется частью байта. Но допустим, что под байтом тут просто понимается массив из 8 битов. Тогда 2^(30 * 8 / 40) = 64.
Зависимость между объектами представлена в варианте С).
Var n,a,b,c,d,i:integer;
begin
readln(n);
a:=1; b:=1; c:=1;
write(a:2,b:2,c:2);
for i:=4 to n do
begin
d:=a+b+c;
a:=b;
b:=c;
c:=d;
write(' ',d);
end;
end.
Пример:
15
<span> 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209</span>