Используя цикл for возвести число 3 в ступень введенную юзером.

Используя цикл for возвести число 3 в ступень введенную пользователем.

Задать свой вопрос
1 ответ

var m,s,b,a:integer;

begin

writeln ('Введите ступень:');

read (m);

b:=3;

s:=1;

for a:=1 to m do begin

s:=s*b;

end;

writeln('3 в степени ',m,': ',s);  

end.



, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт