Составим таблицу, куда пощагово запишем все значения переменных (см. во вложении) и увидим, что значение переменной С будет равно 8
Var
a:array[1..100] of integer;
i:integer;
c,e:real;
begin
for i:=1 to 100 do begin
a[i]:=i;
e:=a[i] div 2;
c:=a[i]/2;
if e=c then
write(a[i],' ');
end;
for i:=100 downto 1 do
begin
a[i]:=i;
e:=a[i] div 2;
c:=a[i]/2;
if e=c then
write(a[i],' ');
end;
<span>end.</span>
Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4;
var s:string; i,k:integer;
begin
writeln('подсчет количества глухих согласных в тексте');
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
(copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
(copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
then k:=k+1;
writeln(k);
end.
Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17
Пусть объём 1го файла - 2х (2 т.к. стереозапись),
тогда пропускная способность первого канала - 2х/18.
после второй оцифровки файл был записан в формате моно (то есть уменьшился вдвое) и стал просто х, после улучшения разрешения увеличился вдвое и стал 2х, после увеличения частоты дискретизации увеличился вдвое еще раз и стал наконец 4х (объём второго файла).
пропускная способность 2го канала в 5 ниже т.е (2х/18)/5= 2х/90= х/45.
чтобы узнать сколько времени затратилось на передачу файла объёмом 4х с пропускной способностью х/45, разделим объём на пропускную способность:
4х/(х/45)= 4*45=180 секунд