16A

17B

Câu 11: A. Tóm tắt bài học lịch sử

Câu 12: C. 4 lề

Câu 13: A. Page layout

Câu 14: A. Chọn hướng trang đứng

Câu 15: A. Orientation

uses crt;
var a: array[1..10000] of longint;
i,n:integer;
begin clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do read(a[i]); writeln('Cac phan tu chia het cho 3 va 5 la: ');
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] mod 5=0) then writeln(a[i],' - vi tri thu ',i);
readln
end.

uses crt;
var s,x,i:byte;
n: string;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to length(n) do begin
val(n[i],x); inc(s,x); end;
write('Tong cac chu so cua so do la: ',s);
readln
end.

uses crt;
var s:integer;
i:byte;
begin clrscr;
s:=0;
for i:=1 to 99 do inc(s,i);
write('Tong cac so be hon 100 la: ',s);
readln
end.

Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Câu 1: 
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

D mới đúng nha ^^

C. tam_giac nha

i = 1 < 5 ĐÚNG => s= 0+1 = 1; i= 1 + 1 = 2;

i = 2 < 5 ĐÚNG => s = 1 + 1 = 2 ; i = 2 + 1 = 3;

i = 3 < 5 ĐÚNG => s = 2 + 1 = 3 ; i = 3 + 1 = 4;

i = 4 < 5 ĐÚNG => s = 3 + 1 = 4 ; i = 4 + 1 = 5;

i = 5 = 5 ĐÚNG => s = 4 + 1 = 5 ; i = 5 + 1 = 6;

i = 6 < 5 sai => ket thuc vòng lap

Vậy kết quả S = 5