ệ KIỉM TRA HOĩC KYè I Mọn: Tin hoỹc. Thồỡi gian: 45' Trong ngọn ngổợ lỏỷp trỗnh Pascal haợùy thổỷc hióỷn caùc yóu cỏửu sau: Cỏu 1: Nóu cuù phaùp vaỡ sổỷ thổỷc hióỷn cuớa cỏu lóỷnh While - Do Cỏu 2: Cho chổồng trỗnh sau: Program Cau1; Var m,n:word; Begin Write( M= ); Readln(M) ; Write( N = ) ; Readln(N); WHILE M <> N DO; Begin IF M > N THEN M := M -N; ELSE N := N - M; End. Writeln( Ket qua la: M) ; Readln End; Em haợy cho bióỳt chổồng trỗnh trón coù nhổợng lọựi naỡo vóử mỷt cuù phaùp (haợy chố ra vaỡ sổớa laỷi). Cho bióỳt kóỳt quaớ trón maỡn hỗnh nhổ thóỳ naỡo khi nhỏỷp: m=25, n=18 Cỏu 3: Vióỳt chổồng trỗnh õóứ nhỏỷp vaỡo mọỹt sọỳ nguyón dổồng bỏỳt kyỡ rọửi cho bióỳt sọỳ vổỡa nhỏỷp coù phaới laỡ sọỳ coù 2 chổợ sọỳ khọng? Cau 4: Vióỳt chổồng trỗnh kióứm tra mọỹt sọỳ nguyón dổồng õổồỹc nhỏỷp vaỡo tổỡ baỡn phờm coù phaới laỡ sọỳ nguyón tọỳ khọng (sọỳ nguyón tọỳ laỡ sọỳ chố coù 2 ổồùc laỡ 1 vaỡ chờnh noù) Baỡi laỡm . . . . . . . . . . ệ KIỉM TRA HOĩC KYè I Hoỹ vaỡ tón: Lồùp: . ióứm óử 1 ióứm óử 2 Mọn: Tin hoỹc. Thồỡi gian: 45' Trong ngọn ngổợ lỏỷp trỗnh Pascal haợùy thổỷc hióỷn caùc yóu cỏửu sau: Cỏu 1: Nóỳu cuù phaùp vaỡ sổỷ thổỷc hióỷn cuớa cỏu lóỷnh For - Do ồớ daỷng tióỳn Cỏu 2: Cho bióỳt giaù trở naỡo seợ hióỷn lón maỡn hỗnh khi thổỷc hióỷn chổồng trỗnh sau: Program Cau1; Var r:integer; Begin i:=7; While i>1 do Begin if i mod 2<>0 then i:=i*3+1 else i:=i div 2; Writeln(i); End; Readln; End. Cỏu 3: Vióỳt chổồng trỗnh õóứ nhỏỷp vaỡo 2 sọỳ nguyón bỏỳt kỗ rọửi cho bióỳt sọỳ lồùn nhỏỳt cuớa 2 sọỳ vổỡa nhỏỷp. Cỏu 4: Vióỳt chổồng trỗnh õóứ nhỏỷp vaỡo 2 sọỳ nguyón dổồng m, n (vồùi m<n) rọửi cho bióỳt tọứng cuớa caùc sọỳ chia hóỳt cho 3 hoỷc 5 trong phaỷm vi tổỡ m õóỳn n. Baỡi laỡm . . . . . . . . . . . . . . . . Hoỹ vaỡ tón: Lồùp: . . Cau1; Var r:integer; Begin i: =7; While i& gt;1 do Begin if i mod 2<>0 then i: =i* 3+1 else i: =i div 2; Writeln (i) ; End; Readln; End. Cỏu 3: Vióỳt chổồng. ệ KIỉM TRA HOĩC KY I Mọn: Tin hoỹc. Thồ i gian: 45' Trong ngọn ngổợ lỏỷp trỗnh Pascal haợùy thổỷc hióỷn caùc yóu cỏửu sau: Cỏu