Составить программу на языке Паскаль Ввести с клавиатуры вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N.

Question

Информатика

Спартак

17 июля, 15:05

Составить программу на языке Паскаль Ввести с клавиатуры вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N.

+3

Ответы (2)

Знаете ответ?

Эльвира · Answer 1

Var a, an:real; n, i:integer;

begin

readln (a, n) ;

an:=1;

for i:=1 to n do

begin

an:=an*a;

writeln (a:3:2,'^', i,' = ', an:6:3) ;

end;

end.

Пример:

2.0 5

2.00^1 = 2.000

2.00^2 = 4.000

2.00^3 = 8.000

2.00^4 = 16.000

2.00^5 = 32.000

Катяха · Answer 2

Var

a: real;

n: integer;

begin

read (a, n) ;

for var k : = 1 to n do

begin

write (power (a, k), ' ') ;

end;

end.