Вот программа:
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.
Вот блок-схема:
<span>натурными модель - это такой вид модели, который можно по трогать(глобус, модель корабля)</span>
В любом компьютере обязательно есть устройства, которые хранят информацию. Устройства хранения информации в компьютере разделяются на оперативную память (память, которая нужна для хранения промежуточных результатов вычислений) и долговременную — здесь хранятся файлы (определение довольно грубое но,суть отражает верно).
В оперативной памяти компьютера любая информация хранится только до выключения компьютера. Если вам нужно сохранить документ и вернуться к работе над ним завтра, его нужно записать на долговременное устройство хранения, обычно – на диск.
Оба искомых числа должны лежать в промежутке от 36 (100 в 6-ричной записи) и 215 (555 в 6-ричной записи) и давать в сумме 259 (1111 в 6-ричной записи), т.е., a+b=259 => a=259-b,
Минимальное а, для которого все эти условия выполняются, равно 44, при b=215.
Очевидно, что остальные пары выглядят так: (45, 214), (46, 213), ... (215, 44), таких пар будет 172. Поскольку пары, отличающиеся только порядком, мы считаем за одну, значит делим на 2: 172/2 = 86.
Ответ 86
* сходится с вашим ответом :)