Bài 7. Câu lênh lặp

Cindy Phuong

Mọi người giúp mình với ạ: viết chương trình tính số các số nguyên dương được nhập từ bàn phím. Cảm ơn mọi người

HoÀng NgỌc LaN
20 tháng 2 2017 lúc 21:11

Var s,i,n : Integer

Begin

Writeln( ' Nhap n = ') ; Readln ( n) ;

S:= 0 ;

For i := 1 to 10 do

If i mod 2 = 0 then s:= s+1

Writeln (' Tong cac so chan<= ' , n , ' la ',S ) ;

Readln ;

End.

Bình luận (3)

Các câu hỏi tương tự
Lâm Khả Doanh
Xem chi tiết
Hương Mai
Xem chi tiết
Maiiii
Xem chi tiết
Nguyenthanh
Xem chi tiết
Phong
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Lan Phương
Xem chi tiết
nguyễn bảo nga
Xem chi tiết
NgocTuan
Xem chi tiết