Решаем задачи Абрамян на Паскале. For15

For15. Дано вещественное число $$A$$ и целое число $$N$$ ($$> 0$$). Найти $$A$$ в степени $$N$$: $$A^N = A*A*… *A$$ (числа $$A$$ перемножаются $$N$$ раз).

Решение:

program For15;

var

A,Rez:Real;

N, i :Integer;

begin

Write('Введите A: ');

Readln(A);

Write('Введите N: ');

Readln(N);

Rez:=1;

For i:=1 to N do Rez:=Rez*A;

Writeln(Rez);

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии 1

program For15;//pabc.net

//uses PT4;

begin

// Task('For15');

var A := ReadReal();

var N := ReadInteger();

var Res := SeqFill(N, A).Aggregate((res, x)-> res * x);

Print(Res)

end.

program For15;//pabc.net

//uses PT4;

begin

// Task('For15');

var A := ReadReal();

var N := ReadInteger();

var Res := 1.0;

SeqFill(N, A).ForEach(x -> begin Res *= x end);

Print(Res)

end.

Ответить

Решаем задачи Абрамян на Паскале. For15

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ