Question

mình đang cần bài này gấp

tính tổng a¹+a²+a³+...+aⁿ , với a,n là số tự nhiên nhập từ bàn phím.( sử dụng chương trình con cho phần nhập , tính tổng và ở chương trình chính chỉ cần xuất )

Answer 1

program giaitin_hoc24;

uses crt ;

var a,n : real;

A:real;

begin

clrscr;

write(' a,n : ');

readln(a,n);

A:=A+ axp(n) ;

write('A= ', A:6:2);

readln

end.

Answer 2

program bai1;

var i,a,n,s,t:longint;

f1,f2:text;

function amux(a,x:longint):longint;

var s,i:longint;

begin

s:1;

for i:=1 to x do

s:=s*a;

amux:=s;

end;

begin

assign(f1,'bai1.inp';reset(f1);

assign(f2,'bai1.out');rewrite(f2);

read(f1,a);readln(f1,n);

s:=0;

for i:=1 to n do

begin

t:=amux(a,i);

s:=s+t;

end;

write(f1,s);

close(f1);close(f2);

end.

Answer 3

Xin lỗi bạn, nick mình có khả năng đang bị hack

Answer 4

Bạn nào trả lười được tặng 1GP nè, trả lời nhanh có khi còn được 2GP đấy

Bà con mại zô

Answer 5

mik ko viết ct con nha vì nó dài,phức tạp và rối

var a,n,i:integer;

t:real;

begin

write('a=');readln(a);

write('n=');readln(n);

t:=0;

for i:=1 to n do

t:=t+exp(ln(a)*n)-1;

writeln(' Tong la: ',t);

readln;

end.

Answer 6

var a,n,i:integer;

t:real;

begin

write('a=');readln(a);

write('n=');readln(n);

t:=0;

for i:=1 to n do

t:=t+exp(ln(a)*n)-3.5;

writeln(' Tong la: ',t);

readln;

end.

Answer 7

hình như k đúng

Answer 8

làm nè

Answer 9

Làm lại nãy làm nhầm

Answer 10

1GP cho bạn nào trả lời được câu này

@Đoàn Gia Khánh Tú Nguyễn B (Erik) Trương Quang Dũng

Answer 11

@Luân Đào nốt luôn cậu

Answer 12

hỏi ngu vãi

Answer 13

thử 1 trong 2 nha cái nào dc thì tích hộ

Answer 14

program giaitin_hoc24;

uses crt ;

var a,n : real;

A:real;

begin

clrscr;

write(' a,n : ');

readln(a,n);

A:=A+ axp(n) ;

write('A= ', A:6:2);

readln

end.