các bạn xem giúp mình lỗi sai ở đâu zạ
đề : viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n( với n được nhập)
program tong_so_le;
uses crt;
var s,i,n: integer;
begin
clrscr;
s:=0;
write(‘nhap so n’);
readln(n);
for i:=1 to n do if (i mod 2=1) then (s:=s+i);
writeln(‘tong cac so le la ‘,s);
readln
end.
sao tui làm mãi ko ra
cứ bị báo lỗi sai thôi à
-đừng báo cáo câu hỏi nha-pleaseeee!!!!
các bạn xem giúp mình lỗi sai ở đâu zạ đề : viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n( với n được nhập) program tong_so_le; uses crt;
By Piper
lỗi của bạn là câu lệnh không được ở trong ngoặc
program tong_so_le;
uses crt;
var s,i,n: integer;
begin
clrscr;
s:=0;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
if (i mod 2=1) then
s:=s+i;{tinh cac so le tu 1 den n}
writeln(‘tong cac so le la: ‘,s);{hien thi ket qua}
readln;
end. //Oken
Program In_So_Le;
Uses crt;
var S,i,n: integer;
Begin
Clrscr;
Write(‘Nhap so n =’); readln(n);
S:= 0;
For i:=1 to n do if i mod 2 =1 then S:= S+i;
Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,S);
readln
end.
Đó là phần bài của mình.
Ở phần mình ghi chữ đậm đó với bài của bạn cóa những phần bị ngược. bạn chỉ mắc phần đó thôi.