Решите пожалуйстаа,срочноо надоо) вывести на экран все степени числа а начиная от 1 до б ,а и б вводятся клавиатурой . буду очень благодарна
Решите пожалуйстаа,срочноо надоо)
вывести на экран все степени числа а начиная от 1 до б ,а и б вводятся клавиатурой .
буду очень благодарна
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b,i,j,c:integer;
begin
writeln('Vvedite a:');
readln(a);
writeln('Vvedite b:');
readln(b);
writeln('Stepeni chisla: ',a);
for i:=1 to b do
begin
c:=1;
for j:=1 to i do
c:=c*a;
writeln(c);
end;
end.
ГостьPascal
var
a,b,i,r : integer;
begin
readln (a,b);
r := 1;
for i := 1 to b do
begin r:= r * a;
writeln (a,'^',i,'=',r);
end;
end.
Не нашли ответ?
Похожие вопросы