Câu 2 :

For i := 1 to 3 do s := s + 2 * i;

⇒ Giá trị i chạy từ 1 đến 3

⇒ Câu lệnh s := s + 2 * i được thực hiện qua mỗi vòng lặp

+ i = 1 ⇒ s = s + 2 * i = 0 + 2 * 1 =   2

+ i = 2 ⇒ s = s + 2 * i = 2 + 2 * 2 =   6

+ i = 3 ⇒ s = s + 2 * i = 6 + 2 * 3 = 12

⇒ Đáp án : 12

Câu 3 :

uses crt;

var x, b : integer;

begin

clrscr;

write('Nhap so x = '); readln(x);

b := x * x + 1;

write('Gia tri bieu thuc = ', b);

readln

end.

Câu 4 :

uses crt;

var M : array [1 .. 100] of integer;

i, n, S : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

S := 0;

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' = '); readln(M[i]);

        S := S + M[i];

    end;

write('Tong cac so = ', S);

readln

end.

Câu 2 : sẽ in ra màn hình kết quả là 12 

Câu 3 

uses crt;

x:integer;

begin

writeln('nhap so x :'); readln(x);

writeln(x*x+1);

readln;

end.

câu 4

uses crt;

var

n,s:integer

a:array[1..100] of integer;

begin

s:=0

writeln('nhap so n '); readln(n);

for i:=1 to n do begin

write('nhap so thu ',i,' : '); readln(a[i]);

s:=a[i]+s;

end;

writeln('tong cac so nguyen tren la : 's);

readln;

end.