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.
a=10 =>b=1010
a=120 =>b=1111000
a=1023 =>b=1111111111
a=35000 =>b=1000100010111000
a)
Input : Số nguyên K và dãy A gồm N số nguyên
Output: Tổng các số dương của dãy A chia hết cho K
b) Thuật toán sơ đồ khối
Nhập K,N Nhập dãy a1,a2,...,aN T←0; i>N? i←1; Đúng Đưa ra giá trị T; Kết thúc. Sai Đúng T←T+Ai; i←i+1; Sai Ai chia hết cho K? Ai>0? Đúng Sai
c) Mô phỏng thuật toán:
| Danh sách (Ai) | 13 | 10 | 15 | 21 | 6 | 27 | 8 | 30 | 12 |
| i | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| T | 13 | 23 | 38 | 59 | 65 | 92 | 100 | 130 | 142 |
Bài 1: 25710=10116
Giải thích: 257 : 16 = 16(dư 1)
16 chia 16=1(dư 0).
tương tự:
32410=14416; 27910=11716
Bài 2: 100100102=9216
1001102=2616
110010102=CA16
11000002=6016
110011102=CE16
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)*2);
writeln(a*b);
readln;
end.
Var cd,cr,cv,dt:real;
Begin
Write('Chieu dai = ');readln(cd);
Write('Chieu rong = ');readln(cr);
cv:=(cd+cr)*2;
dt:=cd*cr;
Writeln('Chu vi la ',cv:10:2);
Write('Dien tich la ',dt:10:2);
Readln
End.
var a,b,x,s: real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('x='); readln(x);
s:=a*b-((a*x/2)+(x*(b-x)/2)+(b*(a-x)/2));
write('dien tich tam giac AMN la:',s);
readln;
end.
var a,b,x,dientich: real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('x='); readln(x);
dientich:=a*b-((a*x/2)+(x*(b-x)/2)+(b*(a-x)/2));
write('dien tich tam giac AMN la:',dientich :2:10);
readln;
end.
var a,b,x:longint;
s:real;
begin
readln(a,b,x);
s:=a*b;
s:=s-a*x/2;
s:=s-x*(b-x)/2;
s:=s-b*(a-x)/2;
write(s:0:2);
readln;
end.
*Mình sẽ tặng 10k cho bạn này, liên hệ với mình để chọn loại thẻ nhé.
Var AB,AC,BC,AH,AM,MH,s: integer
Begin
writeln('Hay nhap AB:');
readln(AB(;
Writeln('Hay nhap BC:');
Readln(BC);
Writeln('Hay nhap AC:');
Readln(AC);
AM:=BC/2;
AH:=AC*AB/BC;
MH:=sqrt(AM^2-AH^2);
s:=AH*HM/2;
Writeln('Dien tich AMH la:',s:2:10);
readln;
end.
#Walker
Mình sẽ tặng 2GP+ thẻ điện thoại 10k cho bạn có câu trả lời đúng + tối ưu nhất . (Hạn cuối *5/11/2019)
lệ ơi , dữ liệu nhập vào lần lượt là 2(ab); 4(BC) và 1(BM) thì hình như có gì đó không đúng bạn ạ
bởi vì nguyên tắc trong hình chữ nhật là chiều dài phải lớn hơn chiều rộng
=> AB>BC
mà 2 đâu có lớn hơn 4
Đúng rồi :v cái này chỉ là ví dụ nên bạn chỉ cần làm đúng y/c của bài là được
Nguyễn Lê Phước Thịnh tag hộ ạ
giới hạn bnh thế
đây mới là đúng nhất nè
uses crt;
var a,b,x,cn,cm,ad,dc,dn:integer;
nm,am,an,p,s:real;
begin
clrscr;
write('nhap do dai canh AB:'); readln(a);
write('nhap do dai canh BC:'); readln(b);
write('nhap do dai canh BM:'); readln(x);
cn:=x;
cm:=b-x;
nm:=sqrt(sqr(cm)+sqr(cn));
am:=sqrt(sqr(a)+sqr(x));
ad:=b;
dc:=a;
dn:=dc-cn;
an:=sqrt(sqr(ad)+sqr(dn));
if (an+am>nm) and (an+nm>am) and (am+nm>an) then
begin
p:=(an+am+nm)/2;
s:=sqrt(p*(p-an)*(p-am)*(p-nm));
writeln('dien tich tam giac AMN la: ',s:4:2);
end
else writeln('day khong phai la 3 canh cua tam giac AMN');
readln;
end.
A B C H M
Cho AM là trung tuyến của đoạn thẳng BC, (AB,BC,AC được nhập từ bàn phím). Tính diện tích của tam giác AMH
lệ ơi , hình như quy tắc của bạn là bài phải chạy được và ngắn nhất có thể đúng không
bài của mình cũng chạy được nhưng mà hình như quá dài đúng không
là sao?
ý mình hỏi là quy tắc chấm bài của bạn là như thế nào
có phải là vừa phải chạy tốt và vừa phải ngắn gọn không
1 bài có nhiều thuật toán mà. Phần ở trên của bạn không cần kiểm tra các cạnh của tam giác
Trong pascal không phải mũ = ^ em nhé. Bài của em sai ở:
1: readln(AB( → readln(AB);
2: MH:=sqrt(AM^2-AH^2); → MH:=sqrt(AM*AM-AH*AH);
uses crt;
var ab,ac,bc:integer;
am,ah,mh,s:real;
begin
clrscr;
repeat
write('Do dai canh AB la: '); readln(ab);
write('Do dai canh BC la: '); readln(bc);
write('Do dai canh AC la: '); readln(ac);
if (ab+bc<=ac) or (ab+ac<=bc) or (ac+bc<=ab) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (ab+bc>ac) and (ab+ac>bc) and (ac+bc>ab);
{-----------------xu-ly--------------------------}
am:=bc/2;
ah:=ac*ab/bc;
mh:=sqrt(sqr(am)-sqr(ah));
s:=ah*mh/2;
writeln('dien tich tam giac AMH la: ',s:4:2);
readln;
end.