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

[anpha9]

[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.

hãy viết chương trình để s=1+2+3+4+...+n mà:
a) n được nhập từ bàn phím
b)1<n<1000

 

[Khôi Trần Cao 2k6]

program tinh_tong;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
writeln('Nhap gia tri cho n : ');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1;
writeln('Tong cua s la: ',s:5:1);
readln;
end.
Chúc bạn học tốt

 

[Lục Vân Tiên]

program tinh_tong;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
writeln('Nhap gia tri cho n : ');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1;
writeln('Tong cua s la: ',s:5:1);
readln;
end.
Chúc bạn học tốt

Bạn ơi, thiếu điều kiện rồi, 1<n<1000
Thêm câu lệnh if trước vòng for nữa bạn!