Задание:
1. Вычислить факториал N. (4! =1*2*3*4=24) 2. Найти среднее геометрическое N чисел 3. Вычислить сумму чисел кратных 6 из интервала от 5 до 100 включительно в программе паскаль
Решение:
Program gt; var n,i,p: integer; beginread (N); p: =1; for i: =2 to n dobeginp: =p*i; end; write (p); end.3) program gt; var s: integer; beginfor i: =5 to 100 dobeginif (i mod 6=0) then s: =s+i; end; writeln (s); end.2) program gtr; var i,n: integer; p,a: real; beginreaD (n); p: =0; for i: =1 to n dobeginread (a); p: =p+1/a; end; p: =n/p; write (p); end.
Знаете другой ответ?