Помогите пожалуйста!!!
Нужно написать программу в паскали АВС.
Условие: нужно возвести число А в 20 степень.
Заранее спасибо!
Ответы
Ответ дал:
0
Есть функция power
var a:integer;
begin
readln(a);
writeln(power(a,20));
end.
если нужно без ее помощи, то циклом
var i,a,r:integer;
begin
r:=1;
readln(a);
for i:=1 to 20 do
r*=a;
writeln(r);
end.
var a:integer;
begin
readln(a);
writeln(power(a,20));
end.
если нужно без ее помощи, то циклом
var i,a,r:integer;
begin
r:=1;
readln(a);
for i:=1 to 20 do
r*=a;
writeln(r);
end.
Ответ дал:
0
не получается
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад