Помогите составить программу решения задачи в паскаль АВС.
5-9 класс
|
Дано вещественное число А и целое числоN( больше 0).Найти А в степени N= А*А*А...*А ( числа А перемножаются N раз)
program pps;
var a,rezult:real;
n,i:integer;
begin
writeln('a='); readln(a);
writeln('n='); readln(n);
rezult:=1;
for i:=1 to n do
rezult:=rezult*a;
writeln('rezult=',rezult);
end.
Другие вопросы из категории
страниц содержал переданный текст ,если известно ,что информационный вес одного символа равен 8 битам , а на одной странице 48 символов.
Читайте также
Даны два целых числа А и В (А меньше В). Найти сумму всех целых чисел от А до В включительно.
Даны два целых числа А и В (А меньше В). Найти сумму квадратов всех целых чисел от А до В включительно.
Дано целое числоN( больше 0).Найти сумму N квадрат +( N +1) квадрат+(N +2) квадрат + ...+ ( 2умножитьN) квадрат ( целое число)
Дано вещественное число - цена 1 кг конфет. Вывести стоимость 0.1,0.2...,1кг конфет
ЗАДАЧА - Составить программу решения задачи: Z = m/(m-1)
ЗАДАЧА - Составить программу определения четных (нечетных) чисел