Дано целое число а и целое число N (Namp;gt;0) Используя цикл

Дано целое число а и целое число N (Ngt;0) Используя цикл ,вывести все ступени числа А от 1 до N

Задать свой вопрос
2 ответа
var   a,s: real;  
n,i: byte;
begin   write('Введите вещественное a: ');  
readln(a);  
repeat     write('Введите целое n (ngt;0): ');    
readln(n);  
until (ngt;0);  
s:=1;  
for i:=1 to n do   begin     s:=s*a;    
writeln(a,' в степени ',i,' = ',s);  
end;  
readln;  //в pascalAbc.net - не непременно
end.

program for16;var A, Pow: real; N, i: integer; begin write('Введите A и N: '); read(A, N); Pow := 1; for i := 1 to N do begin Pow := Pow * A; // Умножаем предшествующую число на А writeln(A, ' в ', i, ' степени равно ', Pow); end;end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт