Tin học Viết chương trình Pascal

[0944340896]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình Pascal tính tổng: S=1+2+3+4+5+...+100
Giúp mình nhé mai mình phải thi học kì. Cảm ơn các bạn rất nhiều!

 

[Iam_lucky_girl]

Tham khảo bạn nhé ^^
program tinhtong;
uses crt;
var i,n:integer;
s:longint;
begin
for i:=1 to 100 do s:=s+i;
write('tong s=',s);
readln;
end.
Mình có làm thử trên Free Pascal rồi nhé!
Chúc bạn thi tốt

 

[0944340896]

Tham khảo bạn nhé ^^
program tinhtong;
uses crt;
var i,n:integer;
s:longint;
begin
for i:=1 to 100 do s:=s+i;
write('tong s=',s);
readln;
end.
Mình có làm thử trên Free Pascal rồi nhé!
Chúc bạn thi tốt

Mình cảm ơn bạn

 

[khanhduy2311]

Bạn thay biến s:integer; i:byte;
program tinhtong;
uses crt;
var s,n:integer;
i:byte;
begin
for i:=1 to 100 do s:=s+i;
write('tong s=',s);
readln;
end.