Const
a=-10;
b=1;
var
i: integer;
begin
for i:=a to b do
writeln('F1(',i,')=',1/Tan(i));
end.
Const
a=2;
b=10;
var
i: integer;
x,f,min,max: real;
begin
x:=a;
min:=power(x,3/5);
max:=min;
for i:=a to b do
begin
x:=i;
f:=power(x,3/5);
writeln(f);
if f<min then min:=f;
if f>max then max:=f;
end;
writeln('min=',min);
writeln('max=',max);
end.
<span>Поименованное сложное действие, которое представляет собой совокупность операторов,вычисляющих некоторое число результатов в зависимости от некоторого числа аргументов называют - ПРОЦЕДУРОЙ.</span>
При чтении массива вложенный цикл, а переменная одна и та же j ,
for j:=1 to 4 do
begin
for j:=1 to 4 do
замените в первом цикле
for i:=1 to 4 do
64*20=1280
Вроде так,если я не ошибаюсь
1.
8 Кбайт= 8*8*1024=65536
22 байта= 22*8=176
2.
15 Кбайт= 15*1024=15360
156 Мбайт= 156*1024*1024=163577856
3.
7168 байт= 7168:1024= 7
2 Мбайта= 2*1024=2048
5 Гбайт= 5*1024*1024=5242880
4. какова кодировка всего алфавита?
5. не знаю
6.
1) 101010
2) 110000