Var
n,npred,maxs,nseq:integer;
begin
Writeln('Вводите натуральные числа, 0 - конец ввода');
maxs:=0; npred:=-32768; nseq:=1;
repeat
Read(n);
if n<>0 then begin
if n=npred then Inc(nseq)
else begin nseq:=1; npred:=n end;
if maxs<nseq then maxs:=nseq
end
until n=0;
Writeln('Наибольшая длина последовательности равна ',maxs)
end.
<em><u>Тестовое решение:</u></em>
Вводите натуральные числа, 0 - конец ввода
1
5
5
0
Наибольшая длина последовательности равна 2
составь словосочетание поясняющее значение хлопок,пироги,окуни,соли,пряди,срезал,замок,муки,суши,пищи,полы,дали,берегу,пила,покр
Chertyonok
Цветной хлопок - услышал хлопок, пшеничные пироги - не придумала (пирОги), пресноводные окуни - окуни голову, морские соли - соли грибы, огурцы, золотистые пряди - пряди шерсть, срезал путь, средневековый замок - навесной замок, тесто из муки - адские муки, край суши - суши весла, остатки пищи - не пищи громко, деревянные полы - полы пальто, бескрайние дали - дали конфетку, на лазурном берегу - берегу честь, покрой платья - покрой пол, жгут листья - медицинский жгут, стих о любви - ветер стих, как себя вели? - вели помиловать
Var
a: array [1..4] of real;
begin
readln(a[1], a[2], a[3]);
a[4] := (a[1] + a[2] + a[3]) / 2;
writeln(sqrt(a[4] * (a[4] - a[1]) * (a[4] - a[2]) * (a[4] - a[3])));
<span>end.</span>
Опытные модели Учебные модели<span>
</span>Научно-технические модели<span> </span>
Вес одной секунды стерео-файла: 48000*24*2 бит
Вес одной секунды моно-файла: 24000*16*1 бит
(48000*24*2):(24000*16*1) = (2*24*2) : 16 = 6.
Исходный файл больше в 6 раз.
