Составьте программу для вычисления числа n: n = 1∙2∙3∙…∙х. число х вводится с клавиатуры.

130

449

Посмотреть ответы 2

Ответы на вопрос:

maksbaduk

Информатика

4,5(34 оценок)

Function factorial(n : integer) : biginteger; var i : integer; f : biginteger; begin f : = 1; for i : = 2 to n do f : = f * i; factorial : = f end; var x: integer; begin write('x: '); readln(x); writeln(factorial(x)); end.

Котёнок0007

Информатика

4,7(19 оценок)

Вот: var a: array[1..150]of integer; i,s,p: integer; begin p: =1; for i: =2 to 150 do begin a[i]: =a[i-1]+1; if a[i] mod 5=0 then begin s: =s+a[i]; p: =p*a[i]; end; end; writeln('summa: ',s,' proizvedenie: ',p); end.