Вот программа:
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.
Вот блок-схема:
Первое устройство, которое работало по программе-счёты.
Даётся 4 бита, это 2^4 = 16 вариантов (0..15)
ответ: 16
1)
2кбайта = 2048 байт
2048/256=8 сек
2)
800*5=4000 бит
3)
8 бит