Вот программа:
Var
A:array[1..20] of real;
i:integer;
S,P:real;
Begin
S:=0;
P:=1;
WriteLn('Введите 20 чисел:');
For i:= 1 to 20 do
Begin
Read(A[i]);
S:=S+A[i];
P:=P*A[i];
End;
WriteLn('S = ',S);
WriteLn('P = ',P);
End.
Вот блок-схема:
Скажите каким будет следующие число в приведённой последовательности- 1,1,4,7,19,40,97,217,508,1159... (только плис,с объяснение
ccaa83
1,1,4,7,19,40,97,217,508,1159<span>,2683,6160,14209, 32689,75316,173383
Т.е. следующим числом будет </span><span>2683</span>
<span>var x,y:real;
begin
write('x=');
readln(x);
if x<=-1 then y:=1
else if(x>-1)and(x<=2) then y:=x
else y:=1/(x*x);
write('y=',y:0:2);
readln
end.
</span>
Код - это номер участника, состоящий из трех цифр.
Выходит тогда если их 800, то номер 800-того будет 11 0010 0000 = кодируется 10-тью битами.
Следовательно любая одна запись (пусть это будет даже первая, она равна 00 0000 0001) будет занимать место в памяти в размере 10 бит.
Данные о 320 учащихся, займут 320*10=3200 бит, или 3.2 килобита информации.