1. viết chương trình free pascal tính N! = 1,2,3,4..N
( với N là số tự nhiên nhập từ bàn phím)
2.Viết chương trình tính tổng dãy số 1+2+3+4+…+n>=n
( với n nhập từ bàn phím)
1. viết chương trình free pascal tính N! = 1,2,3,4..N
( với N là số tự nhiên nhập từ bàn phím)
2.Viết chương trình tính tổng dãy số 1+2+3+4+…+n>=n
( với n nhập từ bàn phím)
1/
uses crt;
var n: byte;
gt: word;
begin
clrscr;
gt:=1;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
gt:=gt*i;
writeln (‘N!=’,gt);
readln;
end.
2/
uses crt;
var i,n: integer;
s: longint;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.
`text\(xin hay nhất nha !!!)`
Dưới ảnh
↧↧↧↧