while..do

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=1; i:=1;

while i<=n do

begin

t:=t*i;

i:=i+1;

end;

write('T = ',t);

readln

end.

for..do

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=1;

for i:=1 to n do t:=t*i;

write('T = ',t);

readln

end.

4/

a/ -> for i:=1 to 10 do writeln('A');

b) -> while t<=5 do write('A');

5/

Thứ tự sắp xếp: 11 - 1 - 12 - 2 - 10 - 3 - 4 - 5 - 6 - 9 - 8 - 7

Lưu ý: (8) -> sửa lại đúng: If diem>=8.0 then writeln('Chuc mung ban!') else writeln('Co len ban nhe!');

program PSMCG;

uses crt;

const N = 5;

type MangA = array[1..N] of integer;

var A: MangA;

     i, max, min, sum: integer;

begin

     for i := 1 to N do

     begin

          write('Nhap phan tu A[', i, ']: ');

          readln(A[i]);

     end;

     writeln('Mang A: ');

     for i := 1 to N do

     begin

          write(A[i], ' ');

     end;

     writeln;

     max := A[1];

     min := A[1];

     for i := 2 to N do

     begin

          if A[i] > max then max := A[i];

          if A[i] < min then min := A[i];

     end;

     writeln('Gia tri lon nhat la: ', max);

     writeln('Gia tri nho nhat la: ', min);

     sum := 0;

     for i := 1 to N do

     begin

          sum := sum + A[i];

     end;

     writeln('Tong gia tri trong mang A la: ', sum);

     readln;

end.

program DiemTB;

var

      diemToan, diemVan, diemTB: real;

begin

      write('Nhap diem mon Toan: ');

      readln(diemToan);

      write('Nhap diem mon Van: ');

      readln(diemVan);

      diemTB := (diemToan + diemVan) / 2;

      writeln('Diem trung binh: ', diemTB:0:2);

      if diemTB >= 5 then

            writeln('Chuc mung! Ban da dau ky thi.')

      else

            writeln('Rat tiec! Ban da truot ky thi.');

      readln;

end.

Uses crt;

var i,k,p,o: longint;

begin clrscr;

for i:=1 to 3 do

for k:=1 to 9 do

for p:=1 to 18 do

for o:=1 to 36 do

if (50*i+20*k+10*p+5*o = 175) then

writeln(i,' mon 50 nghin  ',k,' mon 20 nghin ',p,' mon 10 nghin ',o,' mon 5 nghin ');

Readln;

End.

program BaiTap;

var

     arr: array[1..200] of integer;

     n, i, sumOfOdd, productOfEven: integer;

begin

     writeln('Nhap so phan tu: ');

     readln(n);

     sumOfOdd := 0;

     productOfEven := 1;

     for i := 1 to n do

     begin

          writeln('Nhap phan tu thu ', i, ': ');

          readln(arr[i]);

          if arr[i] mod 2 = 1 then

               sumOfOdd := sumOfOdd + arr[i]

          else if arr[i] mod 2 = 0 then

               productOfEven := productOfEven * arr[i];

     end;

     writeln('Tong cac so le: ', sumOfOdd);

     writeln('Tich cac so chan: ', productOfEven);

     readln;

end.

Chọn C