dễ

alt+F4+2 lần enter

Đây là cách cực kỳ đơn giản, bạn chỉ cần nhấn vào nút Start trên thanh tác vụ và chọn vào biểu tượng nút nguồn ở góc dưới bên phải sau đó chọn vào Shut down. Cách 2: Dùng tổ hợp phím Alt + F4. Khi bạn nhấn tổ hợp phím Alt + F4, menu Shut down sẽ hiện ra sau đó bạn chỉ cần nhấn OK để tắt máy

Câu lệnh for ... do 

program Tinh_Tich;

var

     n, i: integer;

     S: double;

begin

     write('Nhap vao so nguyen N: ');

     readln(n);

     S := 1;

     for i := 7 to n do

     begin

          S := S * i * i * i;

     end;

     writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);

     readln;

end.

Câu lệnh while .... do

program Tinh_Tich;

var

     n, i: integer;

     S: double;

begin

     write('Nhap vao so nguyen N: ');

     readln(n);

     S := 1;

     i := 7;

     while (i <= n) do

     begin

          S := S * i * i * i;

          i := i + 1;

     end;

     writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);

     readln;

end.

program Chan_Le;

var

     n, i: integer;

begin

     write('Nhap vao so nguyen N: ');

     readln(n);

     writeln('Cac so chan tu 1 den ', n, ' la:');

     for i := 2 to n do

     begin

          if i mod 2 = 0 then

          begin

               write(i, ' ');

          end;

     end;

     writeln;

     writeln('Cac so le tu 1 den ', n, ' la:');

     for i := 1 to n do

     begin

          if i mod 2 <> 0 then

          begin

               write(i, ' ');

          end;

     end;

     readln;

end.

program Chan_Le;

var n, i: integer;

begin
  write('Nhap vao so nguyen n: ');
  readln(n);
  writeln('Cac so chan tu 1 den ',n, ' la: ');
  for i := 1 to n do
  begin
    if i mod 2 = 0 then
      write(i, ' ');
  end;
  writeln;
  writeln('Cac so le tu 1 den ', n, ' la: ');
  for i := 1 to n do
  begin
    if i mod 2 <> 0 then
      write(i, ' ');
  end;
  readln;
  end.

Số vòng lặp:

(giá trị cuối - giá trị đầu)+1=(36-5)+1=32(lần)

=> C.32

Câu lệnh For i:=5 to 36 do T:=T+i sẽ có 32 vòng lặp.

Giải thích:

program Tinh_Tong;

var

     n, i, A: integer;

begin

     write('Nhap n: ');

     readln(n);

     i := 0;

     A := 0;

     while i <= (2 * n + 1) do

     begin

          A := A + i;

          i := i + 2;

     end;

     writeln('Tong cac so le tu 1 den 2*n+1 la: ', A);

     readln;

end.

program Tinh_Tong;

var  n, A, i: integer;

begin
  write('Nhap vao so nguyen duong n: ');
  readln(n);
    A := 0;
  i := 0;
  while i <= n do
  begin
    A := A + 2 * i + 1;
    i := i + 1;
  end;
   writeln('Tong A = 1 + 3 + 5 + ... + (2 * ', n, ' + 1) = ', A);
  end.

program Tong_Phan_So;

var

     tu_so1, mau_so1, tu_so2, mau_so2, tu_so_tong, mau_so_tong, ucln: integer;

begin

     write('Nhap tu so phan so 1: ');

     readln(tu_so1);

     write('Nhap mau so phan so 1: ');

     readln(mau_so1);

     write('Nhap tu so phan so 2: ');

     readln(tu_so2);

     write('Nhap mau so phan so 2: ');

     readln(mau_so2);

     tu_so_tong := tu_so1 * mau_so2 + tu_so2 * mau_so1;

     mau_so_tong := mau_so1 * mau_so2;

     ucln := gcd(tu_so_tong, mau_so_tong);

     tu_so_tong := tu_so_tong div ucln;

     mau_so_tong := mau_so_tong div ucln;

     writeln('Tong hai phan so la: ', tu_so_tong, '/', mau_so_tong);

end.

Anh thấy cũng hơi chậm 

em tải cũng phải mất đến 10 giây đấy ạ 

program BaiTap;

uses crt;

var

     N, i:integer;

begin

     clrscr;

     write('Nhap vao so N: ');

     readln(N);

     for i:=1 to N do

     begin

          writeln(i:2, ' x ', N, ' = ',i*N:2);

     end;

     readln;

end.