Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.
<em>Формула некорректна, поскольку при i=1 и k=1 знаменатель дроби обращается в ноль. Программа будет всегда возвращать "бесконечность".</em>
var
i,k,m,n,ik:integer;
si,sk,facti,factk:double;
begin
Write('Введите через пробел значения m и n: ');
Read(m,n);
sk:=0; factk:=1;
for k:=1 to m do
begin
si:=0; facti:=1; ik:=1; factk:=factk*k;
for i:=1 to n do
begin
ik:=-ik; facti:=facti*i;
si:=si+factk/(ik+facti)
end;
sk:=sk+si
end;
Writeln('Результат: ',sk)
end.
var a:array [1..5] of integer;
s,i:integer;
BEGIN
for i := 1 to 5 do
begin
writeln('a[',i,']=');
read(a[i]);
s:=s + a[i]
end;
writeln('s=',s);
END.
Рано, к примеру,больше показателя на ум не приходит