Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Davids

Nhập N số bất kì .
Đếm các số lớn hơn 10 và nhỏ hơn 20 và tính tổng của chúng . Sau đó , đưa ra màn hình :So cac so >10 và <20 la : ( gia tri ) ;Tong cua chung la : ( gia tri )

Trương Quang Dũng
26 tháng 12 2017 lúc 20:08

Var Tong , So : Real ; I , N , Dem : Integer ;
BEGIN
Write (` Bao nhieu so : `) ; Readln ( N ) ;
Tong := 0 ; Dem := 0 ;
For I := 1 To N Do
Begin
Write (` So = `) ; Readln ( So ) ;
If ( So > 10 ) and ( So < 20 ) Then
Begin
Tong := Tong + So ;
Dem := Dem + 1 ;
End ;
End ;
Writeln (` So cac so >10 va <20 la : `, Dem ) ;
Writeln (` Tong cua chung la :`, Tong ) ;
Readln ;

END .


Các câu hỏi tương tự
Phạm Hải Anh
Xem chi tiết
Trang Thiên
Xem chi tiết
Ngô thừa ân
Xem chi tiết
duong hoang ngan
Xem chi tiết
hocgioi123
Xem chi tiết
ytkc
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
hoho209
Xem chi tiết
Nguyễn Bình
Xem chi tiết