Câu 1 : Viết chương trình tính và in ra tổng N số nguyên đầu tiên? (N được nhập vào từ bàn phím)
Câu 10 : Viết chương trình S=x/a+x/(a+1)+x/(a+2)+…+x/(a+10)?
(a là số nguyên, a và x được nhập vào từ bàn phím)
Câu 1 : Viết chương trình tính và in ra tổng N số nguyên đầu tiên? (N được nhập vào từ bàn phím)
Câu 10 : Viết chương trình S=x/a+x/(a+1)+x/(a+2)+…+x/(a+10)?
(a là số nguyên, a và x được nhập vào từ bàn phím)
var x,a:longint;
s:real;
begin
write(‘Nhap a,x: ‘); readln(a,x);
for i:=0 to 10 do
s:=s + (x/(a+i));
write(‘Tong la: ‘,s:0:5);
readln;
end.
Câu 1: N số nguyên dương hay gì nhỉ ‘-‘ Nếu là số nguyên thì thế này
Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=0;
For i:=1 to n do s:=s+i;
Write(‘Tong la: ‘,s);
Readln
End.
Câu 2:
Program BTT;
Uses crt;
Var a,x,i: longint;
s: real;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
Write(‘Nhap x: ‘); Readln(x);
s:=0;
For i:=0 to 10 do
s:=s+x/(a+i);
Write(S:0:2);
Readln
End.