VIẾT CHƯƠNG TRÌNH KIỂM TRA 3 SỐ NHẬP TỪ BÀN PHÍM CÓ PHẢI LÀ 3 CẠNH TAM...

1. Tập viết chương trình, luyện tập với chương trình có

GV: Chiếu đề bài lên.

cấu trúc lặp: nhập vào một số nguyên dương n>1 .Cho

HS: Theo dõi.

biết từ 1 đến n có bao nhiêu số chia hết cho 7.

GV: Yêu cầu học sinh tìm hiểu và soạn chương

trình rồi chạy trên máy.

Program bai1;

Var n,I,dem:integer;

HS: Soạn chương trình trên máy.

Begin

GV: Yêu cầu học sinh lưu chương trình với tên

I:=1;

dem.pas ( F2 và gõ tên).

Readln(n);

Dem:=0;

While(n>=i) do begin

If I mod 7 =0 then dem:=dem+1;

I:=i+1;

End;

Writeln(dem);

End.