Bài tập 3.6: Viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc.. Hãy đếm xem có bao nhiêu số chẵn vừa được nhập vào.[r]
(1)BÀI TẬP PASCAL (TIN HỌC 8) Bài tập 3.1: Viết chương trình nhập vào số nguyên và kiểm tra xem số vừa nhập là số chẵn hay số lẻ (Hướng dẫn: số lẻ chia dư 1) Hướng dẫn bài 3.1 Uses crt; Var x:integer; Begin Write('Nhap vao mot so nguyen : '); Readln(x); If x MOD 2=0 Then Writeln('So vua nhap vao la so chan') Else Writeln('So vua nhap vao la so le'); Readln; End Bài tập 3.5: Viết chương trình nhập vào N số nguyên từ bàn phím Hãy tính và in màn hình tổng các số vừa nhập vào Bài tập 3.6: Viết chương trình nhập vào các số nguyên nào gặp số thì kết thúc Hãy đếm xem có bao nhiêu số chẵn vừa nhập vào Bài tập 3.7: Viết chương trình tính số Pi với độ chính xác Epsilon, biết: Pi/4 = 1-1/3+1/5-1/7+ Bài tập 3.8: Viết chương trình nhập vào số nguyên N In màn hình tất các ước số N Hướng dẫn bài 3.8 Uses Crt; Var N,i : Integer; Begin Clrscr; Write('Nhap so nguyen N= '); Readln(N); For i:=1 To N Do If N MOD i=0 Then Write(i:5); Readln; End (2)