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).
Hướng dẫn:
– Cho S = 0.
– Cho biến i chạy từ 1 đến n.
– Nếu i chẵn (I chia 2 dư 0) thì cộng thêm I vào S.
– In ra S.
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).
Hướng dẫn:
– Cho S = 0.
– Cho biến i chạy từ 1 đến n.
– Nếu i chẵn (I chia 2 dư 0) thì cộng thêm I vào S.
– In ra S.
var
S,n,i:integer;
begin
write(‘Nhap n: ‘); readln(n);
S:=0;
for i:=1 to n do ì i mod 2<>0 then S:=S+i;
write(‘Tong cac so le nho hon ‘,n,’ la: ‘,S);
readln;
end.
BẠN HỌC TỐT NHÉ!
Program bai_tap;
Uses crt;
Var S, i, n: integer;
Begin
Write (‘Nhap 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 hoac bang n la:’, S);
Readln
End.
#Chỗ hướng dẫn của bạn không hợp lí ở chỗ nếu i chẵn (i chia 2 dư 0) vì đề yêu cầu tính tổng các số lẻ.