Регистрация
OVRBTZ
23.04.2021 12:08
Информатика
Есть ответ 👍

На циклы с параметром 1.дано вещественное число a и целое число n (> 0). вывести a в степени n: an = a•a••a (числа a перемножаются n раз).

204
278
Посмотреть ответы 3

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

Софийкф
Софийкф
4,4(95 оценок)
Program stepen; var a: real; b, i, n: integer; begin readln (a, n); b: =a; for i: =2 to n do a: =a*b; writeln(a); readln; end.
Kxmm
Kxmm
4,6(50 оценок)

function pow(a: real; n: integer): real;

var

  r: real;

  i: integer;

begin

  r : = 1;

  for i : = 1 to n do

      r : = r * a;

  pow : = r;

end;

 

var

  a: real;

  n: integer;

begin

  write('a = '); readln(a);

  write('n = '); readln(n);

  writeln(a, ' ^ ', n ,' = ', pow(a, n));

end.

pilipenkorita3
pilipenkorita3
4,7(82 оценок)
Действие: движение состав: зависит из чего зделано колесо пример: деревянное колесо железное колесо признаки: круглое

Популярно: Информатика