Оформить в виде процедуры. Паскаль

[Евгения111]

Оформить в виде процедуры. Паскаль

1. Оформить в виде процедуры «СУММА» вычисление суммы 1+2+3+…+N и произведения 1.2.3….N целых чисел.
В Паскале.

 

[Vladimir_S]

1. Оформить в виде процедуры «СУММА» вычисление суммы 1+2+3+…+N и произведения 1.2.3….N целых чисел.
В Паскале.

VAR
 N:Word;
 S:LongInt;
 P:Extended;

Procedure SUM(Ns:Word; var Ss:LongInt; var Ps:Extended);
var
 i:Word;
begin
 Ss:=0;
 Ps:=1;
 For i:=1 to Ns do
  begin
   Ss:=Ss+i;
   Ps:=Ps*i;
  end;
end;

BEGIN
 Write('N= ');
 Readln(N);
 SUM(N,S,P);
 Writeln('Sum= ',S);
 Writeln('Product= ',P);
 Readln;
END.

 

[Vladimir_S]

_Игорек_, Ваш вопрос вынесен в отдельную, вновь созданную тему: http://www.tehnari.ru/f43/t54719/#post555049
Эта ТЕМА ЗАКРЫТА