Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b=');c 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
kt:=0;
if sqr(a)=sqr(b)+sqr(c) then kt:=1;
if sqr(b)=sqr(a)+sqr(c) then kt:=1;
if sqr(c)=sqr(a)+sqr(b) then kt:=1;
if kt=0 then writeln('Day khong la tam giac vuong')
else begin
writeln('Day la ba canh trong mot tam giac vuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac vuong la: ',s:4:2);
end;
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1;i<=n/2;i++)
if (n%i==0) t=t+i;
if (t==n) cout<<"la so hoan hao";
else cout<<"khong la so hoan hao";
return 0;
}
Program hotrotinhoc_hoc24;
var a: array[1..32000] of integer;
d,i,n: integer;
begin
write('Nhap so nguyen duong N : '); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]=0 then d:=d+1;
end;
if d>0 then write('Trong day co gia tri bang 0') else write('Trong day khong co gia tri bang 0');
readln
end.
Đổi 1GB=1024MB
Cứ 4MB = 1 cuốn
thì 1024/4 MB = 256 cuốn
Vậy USB có 1GB chứa được 256 cuốn sách như thế.
\(1,=1001101_2\\ 2,=9BA_{16}\\ 3,=5FD_{16}\\ 4,=1227_{10}\\ 5,=1111010011111_2\\ 6,=369_{10}\\ 7,=447_{16}\\ 8,=4DF_{16}\\ 9,=1001010_2\\ 10,=7C2_{16}\)
1MB=1024KB, 1GB=1024MB==>1GB=1024*1024=1048576KB
1048576/215=4807file
Vậy USB có dộ lớn 4GB có thể chứa 4087 file