Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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

Minh Lê
29 tháng 3 2019 lúc 18:38

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

Minh Lê
29 tháng 3 2019 lúc 19:15

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.

Rapton321
28 tháng 3 2019 lúc 20:30

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);

Minh Lê
29 tháng 3 2019 lúc 18:45

2) var i:byte;

begin

for i:=1 to 100 do

if i mod 2=0 then writeln(i);

end.

Minh Lê
29 tháng 3 2019 lúc 19:10

3) var i,n:longint;

begin

read(n);

for i:=1 to n do

if i mod 2=0 then writeln(I);

end.


Các câu hỏi tương tự
Jun DeepTry
Xem chi tiết
Hắc Phong
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Ngan Nguyen
Xem chi tiết
gái xinh nè
Xem chi tiết
nguyen nhu
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
Pikachu
Xem chi tiết