Nguyễn Cảnh Hùng

Viết chương trình tính tổng các giá trị lẻ 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
1 tháng 4 2019 lúc 2:31

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 = 1 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
Lê Quang Hiếu
Xem chi tiết
Nguyễn Bảo Việt
Xem chi tiết
Nguyễn tiên
Xem chi tiết
đông hồ khùng
Xem chi tiết
Huỳnh Quốc Đại
Xem chi tiết
Thuận An
Xem chi tiết