<em>// PascalABC.NET 3.2, сборка 1412 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadSeqIntegerWhile('Вводите, 0- конец:',k->k<>0).ToArray;
Writeln('П=',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Пример</u>
Вводите, 0- конец: 61 1 -86 -23 -35 -57 96 -54 -3 -90 -12 -62 3 -47 27 90 85 0
П=7300372606875554895360000
Ответ:
function getSmallArrayItem(arr: array [0..9] of integer): integer;
begin
result := arr[0];
for i := 1 to (Length(arr) - 1) do
begin
if (array[i] < result) then
result := array(i);
end;
end;
Объяснение:
program yaneznayupascal;
procedure PS;
var m, n, S, P : integer;
begin
write('Введите число m (длина): ');
readln(m);
write('Введите число n (ширина): ');
readln(n);
S := m*n;
P := 2*m+2*n;
write('S = ', S);
write('P = ', P);
end;
begin
PS;
end.
Информационный вес символьной информации: 60х40=2400 байтИнформационный вес изображения: 240х300x3=216000 бит (3 - количество бит, требуемое для кодирования 8 цветов: 2^3=8)216000 бит = 27000 байтОбщая сумма: 27000+2400=29400 байт