Nguyễn Cảnh Hùng

Viết chương trình tính tổng các giá trị chẵn trong phạm vi từ 1 đến N

(Số nguyên dương N được nhập vào từ bàn phím)

Đỗ Ngọc Trinh
2 tháng 8 2017 lúc 10:22

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 0 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
đông hồ khùng
Xem chi tiết
Huỳnh Quốc Đại
Xem chi tiết
Lê Quang Hiếu
Xem chi tiết
Thuận An
Xem chi tiết
Nguyễn Quang Kiệt
Xem chi tiết
Nguyễn Bảo Việt
Xem chi tiết