BJ
0
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
QT
0
21 tháng 3 2021
uses crt;
var a,b,i,j:integer;
st:string;
begin
clrscr;
repeat
write('Ban muon ve khong:'); readln(st);
if st='Yes' then
begin
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
for i:=1 to a do
begin
for j:=1 to b do
write('*');
writeln;
end;
end
else break;
until st='No';
readln;
end.
28 tháng 10 2021
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.
29 tháng 10 2021
uses crt;
var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;
begin
clrscr;
readln(xa,ya,xb,yb,xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
writeln(s:4:2);
readln;
end.
ML
5 tháng 4 2019
Lời giải :
program hotrotinhoc ;
Type Mang1chieu : array[1..10] of integer ;
var a : Mang1chieu ;
i,T : integer ;
begin
writeln('Nhap cac gia tri cho mang');
for i:= 1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
T:=1;
for i:= 1 to 10 do
if a[i] mod 2 = 0 then T:=T*a[i] ;
write('Ket qua la:',T);
readln
end.
5 tháng 4 2019
program hotrotinhoc ;
Type Mang1chieu : array[1..10] of integer ;
var a : Mang1chieu ;
i,T : integer ;
begin
writeln('Nhap cac gia tri cho mang');
for i:= 1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
T:=1;
for i:= 1 to 10 do
if a[i] mod 2 = 0 then T:=T*a[i] ;
write('Ket qua la:',T);
readln
end.
