Вот так, если я правильно понял тебя(качай, я кинул в блокноте)
______________________________________________________________
"СПАСИБО" и оценку ответа, так я буду знать, что помог. Удачи!
Программу надо сформатировать и тогда её структура будет видна лучше.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".
var
s, k: integer;
label
met;
begin
s:=-12;
k:=90;
Writeln('s=',s,', k=',k);
s:=s+10;
Writeln('s=',s);
met:
Writeln('Метка met:');
k:=k+10; Write('k=',k);
if k<200 then s:=50 else s:=s+k;
Writeln(', s=',s);
if k<200 then goto met;
Writeln('Результат: s=',s)
end.
<u><em>Результат выполнения программы:</em></u>
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250
1.
I=i*k*m
где i - объём одной точки, k, m - размер картинки
32*8*1024=256*256*i
(вычисления лучше проводить, представив все значения в степенях двойки)
i=4
N=2^i
N - количество цветов в картинке
2^4=16,
N = 16
2.
I= i*t*q*c
c - количество дорожек (здесь моно - 1)
q - частота дискретизации
i - глубина кодирования
t - время
I= 16 бит * 60 с * 16 000 Гц * 1 = 15 360 000 бит = 1,8 Мб (примерно)
все значения нужно брать в минимальных, то есть Гц, биты и секунды, а не байты, килогерцы и минуты.
1) "COPY('ИНФОРМАТИКА',3,6);"
2) "24 + 24 =48"
*в ответе двойные кавычки не учитываются
