kiểu anime là đẹp nhất bạn ạ hihi

bạn ấn vào chỗ thông tin tài khoản rồi ấn vào thay ảnh là xonh

biết là thế nhưng tại ảnh về kiểu gì

bị khóa rùi 

ảnh đại diện ấy phải là png

Nó kêu chức năng đang tạm khoá

Câu 1:

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

   begin

        p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,t,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu trong day la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

     if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

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

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

readln;

end. 

- Học sinh tự tiến hành thí nghiệm và ghi kết quả sự thay đổi nhiệt độ hiển thị trên nhiệt kế sau mỗi phút vào bảng 8.2 

Chú ý:

- Trong suốt thời gian sôi, nhiệt độ của nước không thay đổi (100⁰C)

-  Thời gian đun sối nước phụ thuộc vào nhiệt độ ngọn lửa, độ dày bình cầu và lượng nước trong bình cầu. 

var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
 cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.

mỗi câu a,b,c thì readln rồi end nhé

Để thay đổi giao diện hiển thị của một cửa sổ trong phần mềm GIMP, bạn có thể làm theo các bước sau:

Mở phần mềm GIMP trên máy tính của bạn.

Chọn "Windows" single-window Mode

hình như hoc24 nghỉ cho đổi tên r bn ơi

Program HOC24;

var r,s: real;

begin

write('Nhap ban kinh: '); readln(r);

writeln('Dien tich la: ',r*r*3.14:6:2);

write('Chu vi la: ',r*2*3.14:6:2);

readln

end.