Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

1)дано натуральное число N и действительное Х. Вычислите X(в n степени) где n меняется от 1 до N
2)дано натуральное число N. Вычислить 2(в n cтепени), где n меняется от 1 до N

Ответ оставил Гость

1 задача:

var n:integer;   
x:real;
begin 
writeln (Введите число X); readln(x); 
writeln (Введите максимальную степень числа X); readln(n);   
for n:=1 to n do     
begin       
writeln (x= ,exp(ln(x)*n));     
end;
end.
----------------------
2 задача:

const x=2;
var n:integer;    
begin 
writeln (Введите максимальную степень числа 2); readln(n);   
for n:=1 to n do     
begin       
writeln (x= ,exp(ln(x)*n));     
end;
end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О