придумайте программу в Паскаль ABC для вычисления следующей величины:
10-11 класс
|
1+а+а^2+K+a^K
а и К задаются пользователем.
var n,k:real;
begin
readln(n,k);
writeln(sqr(n)+k+exp(ln(n)*k)+n+1);
end.
Функция exp(ln(n)*k) возводит число n в степень k
program _4_2;var
s1,a,d:real;
k,i,n: integer;
begin
writeln('Ââåäèòå A');
readln(a);
writeln('Ââåäèòå K');
readln(k);
d:=a;
for i:=1 to k do
begin
d:=a;
d:=d*a;
writeln('d=',d);
end;
s1:=1+a+(a*a)+k+d;
writeln('s1=',s1);
end.
вот мой вариант программы, но он не верно возводит А в степень Кprogram _4_2;
var
s1,a,d:real;
k,i,n: integer;
begin
writeln('Ââåäèòå A');
readln(a);
writeln('Ââåäèòå K');
readln(k);
d:=a;
for i:=1 to k do
begin
d:=a;
d:=d*a;
writeln('d=',d);
end;
s1:=1+a+(a*a)+k+d;
writeln('s1=',s1);
end.
Другие вопросы из категории
Собаки 200 кошки | собаки 450
Кошки 250 Кошки & лемуры 40
Лемуры 450 Собаки & лемуры 50.
Сколько страниц найдет этот сервер по запросу
кошки | собаки | лемуры?
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
2.написать программу в паскале
f(x)=2(sin*sin)x+1
столбце первый и последний отрицательные элементы;
(Паскаль)
ВБ- 71 Разработайте схему алгоритма, который проверяет, не превосходит ли сумма двух действительных чисел А и В числа 100. Если не превосходит, установить значение флага F=0, иначе установить значение флага F=1. Вывести значение F.
ЦА-10 Разработайте схему алгоритма для вычисления суммы S первых n целых чисел. Предусмотрите ввод значения n с клавиатуры. Текущее значение целого числа имеет имя i (i = 1, 2, .., n).