<h2>PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)
</h2>
- program task31143948;
- const
- N = 12;
- var
- arr: array[1..N] of real;
- Sum: real;
- begin
- Sum := 1;
- for var i := 1 to N do
- begin
- arr[i] := Random()*4 - 1;
- Writeln(arr[i]:5:2);
- if arr[i] < 0 then
- Sum := Sum * arr[i]
- end;
- if Sum = 1 then
- Write('ПРОИЗВЕДЕНИЕ = 0')
- else
- Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
- end.
Т.к. наибольшая цифра в числе "силен" =5, а С=1, то остальные четыре цифры в данном числе будут 2, 3, 4, 5. Т. к. Н<6, то И=2. А значит, Н=4. Т.к. Л>Е, то Л=5, Е=3. А тогда уже легко находим остальные цифры: Ш=8, Р=9. В итоге получается: 9382+3152=12534.
Ответ: 9382+3152=12534.
Информация цвета пикселей
Конечно может, но если у ивана братьев нет получается то что у этих маляров другой брат