Question

[Nam Ngọc]

tinh tong S=1+2^2+3^3=...+10^10 bang cach su dung cau len lap For...do

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var i,j:integer;

s:real;

{----------chuong-trinh-con---------------}

function luythua(x,y:integer):real;

var lt:real;

i:integer;

begin

lt:=1;

for i:=1 to y do 

  lt:=lt*x;

luythua:=lt;

end;

{---------------chuong-trinh-chinh---------------------}

s:=0;

for i:=1 to 10 do

for j:=1 to 10 do

if i=j then s:=s+luythua(i,j);

writeln(s:0:0);

readln;

end.