Bài 8. Lặp với số lần chưa biết trước

program TimSoLonHonA;

var

     a: array of integer;

     n, i, x: integer;

begin

     write('Nhap so phan tu cua day so: ');

     readln(n);

     SetLength(a, n);

     for i := 0 to n - 1 do

     begin

          write('Nhap gia tri phan tu thu ', i + 1, ': ');

          readln(a[i]);

     end;

     write('Nhap vao mot so nguyen bat ky: ');

     readln(x);

     writeln('Cac so lon hon ', x, ' la: ');

     for i := 0 to n - 1 do

     begin

          if (a[i] > x) then

               writeln(a[i]);

     end;

end.

program TinhTongVaUocSo;
var
  a, b, tong, i: integer;
  laSoNguyenTo: boolean;
begin
  write('Nhap a: ');
  readln(a);
  write('Nhap b: ');
  readln(b);
  tong := a + b;
  writeln('Tong cua a va b la: ', tong);
  writeln('Uoc so cua tong la:');
  for i := 1 to tong do
  begin
    if tong mod i = 0 then
      writeln(i);
  end;
  laSoNguyenTo := true;
  if tong < 2 then
    laSoNguyenTo := false
  else
    for i := 2 to trunc(sqrt(tong)) do
      if tong mod i = 0 then
      begin
        laSoNguyenTo := false;
        break;
      end;
  if laSoNguyenTo then
    writeln('Tong a va b la so nguyen to')
  else
    writeln('Tong a va b khong phai la so nguyen to');
  readln;
end.

program TinhTongVaUocCuaTong;

var a, b, tong, i: integer;
     SoNguyenTo: boolean;

begin
writeln('Nhap vao hai so a va b (a > 0, b > 0): ');
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  tong := a + b;
  writeln('Tong cua a + b = ', tong);
  writeln('Uoc cua tong a + b: ');
  for i := 1 to tong do
  begin
    if tong mod i = 0 then
      writeln(i);
  end;
  SoNguyenTo := true;
  if tong < 2 then
  SoNguyenTo := false
  else
    for i := 2 to trunc(sqrt(tong)) do
    begin

  if tong mod i = 0 then
 begin
 SoNguyenTo := false;
        break;
      end;
    end;
   if SoNguyenTo then
    writeln('Tong a + b la so nguyen to:')
  else
    writeln('Tong a + b khong phai la so nguyen to:');
  end.

program TinhTongVaUoc;

var
  a, b, sum, i: integer;
  uoc: boolean;

begin
  write('Nhap so a: ');
  readln(a);

  write('Nhap so b: ');
  readln(b);

  // Tinh tong a+b
  sum := a + b;
  writeln('Tong cua a va b la: ', sum);

  // In ra cac uoc cua tong
  write('Cac uoc cua tong a+b la: ');
  for i := 1 to sum do
  begin
    if sum mod i = 0 then
      write(i, ' ');
  end;
  writeln;

  // Kiem tra xem tong a+b co phai la so hoan hao hay khong
  uoc := false;
  for i := 1 to sum - 1 do
  begin
    if sum mod i = 0 then
      uoc := true;
  end;
  if uoc and (sum = 2 * sum div 2) then
    writeln('Tong a+b la so hoan hao')
  else
    writeln('Tong a+b khong phai la so hoan hao');
end.

var i,n:integer;

begin

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

i:=2;

while n mod i <> 0 do i:=i+1;

if i = n then write(n,' la so nguyen to')

else write(n,' khong la so nguyen to');

readln

end.

Uses crt;

var i,n,p: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(n mod i=0) then p:=p+1;

if(p=2) then writeln(n,' la so nguyen to')

else writeln(n,' khong phai la so nguyen to');

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.

Chọn C

Chọn C

Chọn C

Chọn C