cần gấp mọi người viết chương trình pascal cho em mấy bài này, chiều em làm bài rồi@@
1)Tìm n nhỏ nhát để Sn nhỏ nhất lớn hơn 1000, biết Sn=1+2+...+n
2) IN ra các số chẵn từ 1 đến 100
3)in ra các sô chãn từ 1 đến n
4) in ra các số lẻ từ 1 đến 100
5) tính tổng, tích của n số tự nhiên đầu tiên
Em học pascal lớp 8 nha mọi người
...
Đọc tiếp
cần gấp mọi người viết chương trình pascal cho em mấy bài này, chiều em làm bài rồi@@
1)Tìm n nhỏ nhát để Sn nhỏ nhất lớn hơn 1000, biết Sn=1+2+...+n
2) IN ra các số chẵn từ 1 đến 100
3)in ra các sô chãn từ 1 đến n
4) in ra các số lẻ từ 1 đến 100
5) tính tổng, tích của n số tự nhiên đầu tiên
Em học pascal lớp 8 nha mọi người
1) var n,sum;
begin
while sum<=1000 do
begin
n:=n+1;
sum:=sum+n;
end;
write('n=',n);
end.
bài thi bên mình không readln đoạn cuối nha bạn, bạn muốn thì thêm vào nha
5)var i,n,tong:longint;
const tich:longint=1;
begin
read(n);
for i:=1 to n do
begin
tong:=tong+i;
tich:=tich*i;
end;
write('tong=',tong);
write('tich=',tich);
end.