Viết chương trình in ra các tổng các số lẻ nhỏ hơn hoặc bằng n(với n được nhập)

2 câu trả lời

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

uses crt;

var n,i,sl:longint;

begin

clrscr;

write('n);

readln(n);

for i:=1 to n do

if i mod 2<>0 then sl:=sl+i;

writeln('tong cac so le: ',sl);

readln

end.

Câu hỏi trong lớp Xem thêm