• Дано вещественное число А и целое число N>0. Вывести все целые степени числа A от 1 до N.

Ответы 1

  • var n,i:integer;a,s:real;Begin    s:=1;    for i:= 1 to n do Begin        s:=s*a;        writeln(s);    end;End.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years