program HienThiA;
var
  i: Integer;
begin
  i := 1;
  while i <= 10 do
  begin
    writeln('A');
    i := i + 1;
  end;
  readln;
end.

pascal nhỉ?

for i:=1 to 5 do writeln('a');

for i:=1 to 5 do writeln('A');

Câu lệnh lặp sẽ được thực hiện khi giá trị của biến S là lớn hơn 0. Trong quá trình lặp, giá trị của biến i sẽ được tăng lên mỗi lần lặp cho đến khi i đạt đến giá trị n. Trong cùng mỗi lần lặp, giá trị của biến J sẽ được cập nhật bằng cách cộng thêm i^2, sau đó biến S sẽ giảm đi giá trị của i.

Khi vòng lặp kết thúc, chương trình sẽ in ra màn hình tổng S, tức là giá trị cuối cùng của biến J.

Với câu lệnh lặp như sau:

J:=0;
i:=0;
While S > 0 Do
    i:=i+1;
    J:=J+i^2;
    S:=S-i;
End;
Write(J);

Ví dụ, nếu ta gán S=5, thì chương trình sẽ tính tổng của các số bình phương từ 1^2 đến 5^2 và in ra giá trị đó, tức là 1^2 + 2^2 + 3^2 + 4^2 + 5^2 = 55.

uses crt;

var i,s:integer;

begin

for i:=1 to 50 do writeln(*);

s:=0;

For i:=1 to 99 do while i mod 2 = 1 do s:=s+i;

writeln('tong cua phep tinh la',s); readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

for i:=1 to 50 do

  write('*');

writeln;

t:=0;

for i:=1 to 100 do 

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

uses crt;

var a,t,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 6 do 

  begin

readln(a);

if (a mod 2=0) then t:=t+a;

end;

writeln(t);

readln;

end.

Chọn D.

Vì không có câu lệnh để thay đổi giá trị a, mà a vẫn bằng 10 => vòng lặp vô hạn

⇒ Đáp án:       A. Trên màn hình xuất hiện một chữ a

uses crt;

var i:integer;

a:array[1..20]of string;

begin

clrscr;

for i:=1 to 20 do readln(a[i]);

for i:=1 to 20 do 

  writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);

readln;

end.

Program Hoc24;

var i: byte;

begin

for i:=1 to 20 do

writeln('Chao ban thu ',i);

readln

end.