<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
Тело цикла будет выполнено 5 раз
Var n,f,i: integer;
begin
write('n = ');
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Пример:
<span>n = 6
6! = 720</span>
4*2=8
Но если нужна программа, то вот:
var
a: <em>word</em>;
b: <em>byte;</em>
begin
readln(a);
b := a mod 100 div 10;
a := a div 1000 mod 10;
writeln(a, ' * ', b, ' = ', a * b);
end.