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.
mấy cái khai báo, begin end. ; nhập dữ liệu, xuất dữ liệu bạn tự làm nha
1)sn:=0;i:=1;
while sn<= 1000 do begin
sn:=sn+i;
i:=i+1;
end;
write('n=',i);
2)for i:=1 to 100 do
if i mod 2=0 then write(i,' ');
3) for i:=1 to n do
if i mod 2=0 then write(i,' ');
4)for i:=1 to 100 do
if i mod 2<>0 then write(i,' ');
5)s:=0;t:=1;
for i:=1 to n do
begin
s:=s+i;
t:=t*i;
end;
writeln('tong=',s);
writeln('tich=',t);
2) var i:byte;
begin
for i:=1 to 100 do
if i mod 2=0 then writeln(i);
end.
3) var i,n:longint;
begin
read(n);
for i:=1 to n do
if i mod 2=0 then writeln(I);
end.
