uses crt;

var st:array[1..100]of string;

a,b,c:array[1..100]of real;

i,n:integer;

max:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(st[i],a[i],b[i],c[i]);

max=(a[1]+b[1]+c[1])/3;

for i:=1 to n do 

if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;

writeln(max:4:2);

readln;

end.

var i,j,n,d,sl:integer;

begin

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

for i:=1 to n do

begin

sl:=0;

for j:=1 to i do

if i mod j = 0 then

begin

d:=d+1;

if d=2 then sl:=sl+1;

end;

end;

write('Co ',sl,' so nguyen to <= ',n);

readln

end.

program DemSoNguyenTo;
var
  n, i, j, count: integer;
  isPrime: boolean;
begin
  write('Nhap so nguyen duong n: ');
  readln(n); // Nhập số nguyên dương n từ bàn phím
  writeln('Cac so nguyen to <= ', n, ' la: ');

  count := 0; // Khởi tạo biến đếm số lượng số nguyên tố
  for i := 2 to n do // Duyệt qua các số từ 2 đến n
  begin
    isPrime := true; // Giả sử số hiện tại đang xét là số nguyên tố

    // Duyệt qua các ước của số hiện tại để kiểm tra số nguyên tố
    for j := 2 to round(sqrt(i)) do
    begin
      if i mod j = 0 then
      begin
        isPrime := false; // Nếu có ước thì không phải là số nguyên tố
        break;
      end;
    end;

    if isPrime then // Nếu số hiện tại là số nguyên tố
    begin
      writeln(i); // In ra số nguyên tố đó
      count := count + 1; // Tăng biến đếm số lượng số nguyên tố lên 1
    end;
  end;

  writeln('Tong so nguyen to <= ', n, ' la: ', count);
end.

có thể bằng 2, 1 và 11

bằng 1 vì 1 giọt nước cộng 1 giọt nữa thì vẫn là 1  giọt

còn bằng 11 vì 1 thêm một số 1 nữa là 11

1+1=2

hok tốt

Anh cảm ơn ai vậy 

em à

thank you

ha ha mắc cười quá