lấy 2048/6 lấy xấp xỉ th bạn ạ

program text;
uses crt;
var i:integer;
    a,b,c,ha,hb,hc,p,S:real;
    X,Y:array[1..3] of integer;
Begin
   clrscr;
   Writeln('Nhap toa do cac dinh A, B, C:');
   for i:= 1 to 3 do readln(X[i],Y[i]);
   a:=sqrt(sqr(X[2]-X[3])+sqr(Y[2]-Y[3]));
   b:=sqrt(sqr(X[1]-X[3])+sqr(Y[1]-Y[3]));
   c:=sqrt(sqr(X[2]-X[1])+sqr(Y[2]-Y[1]));
   p:= (a+b+c)/2;
   S:= sqrt(p*(p-a)*(p-b)*(p-c));
   Writeln('Dien tich cua tam giac la: ',S:0:4);
   ha:=2*S/a;
   hb:=2*S/b;
   hc:=2*S/c;
   writeln('ha = ',ha:0:2,' hb = ',hb:0:2,' hc = ',hc:0:2);
   readln;
end.

Program Chu_nhat;

uses crt;

var a,b:integer;

Begin

  clrscr;

  write('Nhap a, b: ');readln(a,b);

  writeln('Chu vi cua hinh chu nhat la: ',(a+b)*2);

  readln;

end.

Cout << "25^2=" << 25*25;

=> 25^2=625

Vì trung bình một bộ phim khoảng 1,5 giờ nên mỗi bộ phim sẽ chiếm khoảng 6GB. Ta có 2TB = 2048GB suy ra mỗi đĩa cứng 2TB sẽ chứa được khoảng 341 bộ phim

8 + (10-3) div 2 = 8 + 7 div 2 = 8 + 3 = 11

Đáp án B

program Tin_hoc;

Uses crt;

var i,n,k,dem:integer;

     a;array[1..10000] of integer;

Begin

clrscr;

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

writeln('Nhap ',n,' pha tu cua day A:');

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

dem:=0;

write('Nhap k: ');readln(k);

for i:= 1 to n do if a[i] = k then inc(dem);

writeln('Day A co ',dem,' ki tu ',k,);

readln;

end.

program Tin_hoc;

uses crt;

var n,i,max:integer;

     a:array[1..100000] of integer;

begin

clrscr;

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

writeln('Nhap ',n,' phan tu cua day:');

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

max:=a[1];

for i:= 1 to n do if a[i] > max then max:=a[i];

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

readln;

end.