Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (649.68 KB, 12 trang )
TR NG THPT KHANH SễN
GIAO AN ẹIEN
Tệ
GV: TAẽ HOAỉNG MINH
KIỂM TRA BÀI CŨ
? Viết chương trình điều tra (nhập số
người) tình hình dân số các hộ dân trên
đường Lê Duẫn. (100 hộ dân).
Hãy tìm xem 1hộ nào đó có bao nhiêu
người?ä
Program Dso;
Uses cst;
Var x,S,i: integer;
Begin
Writeln(‘ Nhap so nguoi tung ho’);
S:=0;
For i:=1 to 100 do
Begin
Write(‘ho ’,i); readln(x);
S:=S+x;
End;
Writeln(‘So dan vua dieu tra la’,S);
Readln;End.