Составьте программу вычисления выражения (разными способами, применяя каждый из операторов while,repeat,for) a^p, где p - целое число. Pascal / очень надо.
Ответы
Ответ дал:
0
1)Это с помощью while
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
Ответ дал:
0
вы наверно поняли что a в степени p ?
Ответ дал:
0
ну да
Ответ дал:
0
а там иначе?
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад