Question

[Huy Nguyen]

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

Answer 1

[Minh Lê]

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

Answer 2

[Minh Lê]

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.