<span><span /></span>
<span><span><span><span>
Дни
</span><span>
Высота (см)
</span></span><span><span>
Первый
</span><span>
- 180
</span></span><span><span>Второй
- </span><span> 182
</span></span><span><span>
Третий
</span><span>
- 184
</span></span><span><span>
Четвертый
</span><span>
- 186
</span></span><span><span>
Пятый
</span><span>
- 188
</span></span><span><span>
Шестой
</span><span>
- 190
</span></span><span><span>
Седьмой </span><span>- 192
</span></span></span></span>
Число 240 в двоичной системе=11110000
номер каждого участника состоит из 8 симовлов=8бит=1байт
240*1/2=120байт
ответ:120байт
<span>допустим первые три массива:
int a[10], b[10], c[10];
</span> int d[10] //четвертый массив
for (int i = 0; i < 0; ++i)
{
d[i] = a[i];
if(b[i]>d[i])
{
d[i] = b[i];
}
if ( c[i] > d[i])
{
d[i] = c[i];
}
<span>}</span>
1)
Var a,b,c:integer; x1,x2,d:real;
Begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
d:=sqr(b)-(4*a*c);
x1:=(-b+sqrt(d))/(2*a);
x1:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
End.
2)
Var x,i,s,n,d:integer;
Begin
write('Введите первый элемент прогрессии: '); readln(x);
write('Введите количество элементов в прогрессии: '); readln(n);
write('Введите знаменатель прогрессии: '); readln(d);
s:=0;
for i:=1 to n do
begin
s:=s+x;
x:=x+d;
end;
writeln('Сумма элементов арифметической прогрессии равна ',s);
End.
