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 một 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 2 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 ra màn hình tổng của các số vừa được 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 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.
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 ra màn hình tất cả
các ước số của 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.
/storage1/vhost/convert.123doc.vn/data_temp/document/oae1445067319-211068714450673194089/oae1445067319.doc