sqr(d) + b = 25 + 16 = 41c*d + a = 40 + 31 = 7141 >= 71 → D := FALSE

<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">Program bt_3;<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">Uses crt;<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">Var a: array[1..100] of integer;<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">Dem, Tong, n, i: integer;<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">BeginClrscr; Writeln(‘nhap so phan tu, n=’); Readln (n); for i := 1 to n do begin writeln(‘nhap gia trij phan tu thu ’,i,’ =’); readln(a[i]); end; Dem:=0; Tong:=0; For i:=1 to n do If (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then begin Dem:= Dem+1; Tong:= Tong+a[i]; end; writeln(‘Dem la:’,Dem); Writeln(‘Tong la:’,Tong); Readln<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">End.

<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">Cách 1:<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">if (x >= 0) and (y >= 0)<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">then A:= sqr(x) + sqr(y) + 1 else A:= sqrt(x*y);<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">Cách 2:<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">if ( x < 0) and (y < 0)<span style="font-size: 14.0pt; line-height: 107%; font-family: 'Times New Roman','serif'; mso-fareast-font-family: Calibri; mso-fareast-theme-font: minor-latin; mso-ansi-language: EN-US; mso-fareast-language: EN-US; mso-bidi-language: AR-SA;">then A:= sqrt(x*y) else A:= sqr(x) + sqr(y) + 1;

Đề thi Học kì 1 Tin học 11 có đáp án (Đề 4)

Tin học

Phổ thông

Tải đề thi tự luận: Đề thi Học kì 1 Tin học 11 có đáp án (Đề 4), hoặc tham gia hoàn thiện 3 lời giải chi tiết cùng gia sư Dương Huyền Duyên