1)Вычислить значение из степени числа,не пользуясь операцией возведения в степень.Найдите произведение первых и натуральных чисел.

2)Ввести несколько чичел

3)Вычислить среднее арифметическое этих чисел

1

Ответы и объяснения

Лучший Ответ!
2012-03-05T01:12:40+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var s,i,n,a:integer;

BEGIN

  read(a,n);

  s:=1;

  for i := 1 to n do

    s:=s*a;

  writeln('a в степени n = ',s);

 

  s:=1;

  for i := 1 to n do

    s:=s*i;

 writeln(s);

 

  s:=0;

 for i:= 1 to n do

 begin

   read(a);

   s:= s + a;

 end;

writeln('среднее арифметическое = ',s/n)

    

 

END.