1.вычислить факториал N. (4!=1*2*3*4=24)2.найти среднее геометрическое N чисел3. вычислить сумму чисел кратных 6 из интервала от
1.вычислить факториал N. (4!=1*2*3*4=24) 2.найти среднее геометрическое N чисел 3. вычислить сумму чисел кратных 6 из интервала от 5 до 100 включительно в программе паскаль
Program gt; var n,i,p:integer; begin read(N); p:=1; for i:=2 to n do begin p:=p*i; end; write(p); end. 3) program gt; var s:integer; begin for i:=5 to 100 do begin if(i mod 6=0)then s:=s+i; end; writeln(s); end. 2) program gtr; var i,n:integer; p,a:real; begin reaD(n); p:=0; for i:=1 to n do begin read(a); p:=p+1/a; end; p:=n/p; write(p); end.
Const N = 5; M = 10; Var A : array[1..N,1..M] of Integer; i,j : Byte; Begin For i:=1 to N do Begin For j:=1 to M do Begin If i>j then A[i,j]:=i else A[i,j]:=i*j; Write(a[i,j]:6); end; Writeln; end; end.