ПОМОГИТЕ ПЛИЗ! Задачи на циклы с параметром…

Question

ПОМОГИТЕ ПЛИЗ! Задачи на циклы с параметром 1. Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An=A•A•… •A (числаA перемножаются N раз).

Answer 1

91

almalm

14 апреля 2023

function Pow (a: real; n: integer): real; var r: real; i: integer; begin r: =1; for i: =1 to n do r: =r*a; Pow: =r; end; var a: real; n: integer; begin write ('a='); readln (a); write ('n='); readln (n); writeln (a, ' ^ ', n ,'=', Pow (a, n); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: