a)
Viết chương trình tính tổng các số nguyên liên tiếp từ a đến b với a, b là các số nguyên dương được nhập từ bàn phím
b)
Viết chương trình tính tích n số tự nhiên liên tiếp
( ai giỏi Tin giúp mình với ạ, mình cần gấp)
a)
Viết chương trình tính tổng các số nguyên liên tiếp từ a đến b với a, b là các số nguyên dương được nhập từ bàn phím
b)
Viết chương trình tính tích n số tự nhiên liên tiếp
( ai giỏi Tin giúp mình với ạ, mình cần gấp)
a)
program oken;
uses crt;
var a,b,s,i:longint;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
for i:=a to b do
s:=s+i;
writeln(‘Tong cac so tu ‘,a,’->’,b,’: ‘,s);
readln;
end.
b)
program oken;
uses crt;
var n,s,i: longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(‘Tich cac so 1->’,n,’: ‘,s);
readln;
end.
${Oken}$
a)
uses crt;
var a,b,s,i:longint;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
for i:=a to b do s:=s+i;
writeln(‘Tong cac so tu ‘,a,’ den ‘,b,’ la: ‘,s);
readln
end.
b)
uses crt;
var n,s,i:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=1;
for i:=1 to n do s:=s*i;
writeln(‘Tich cac so 1 den ‘,n,’ la: ‘,s);
readln
end.