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.
Test 1:
a=2; b=4
=>-2
Test 2:
a=0; b=0;
=>Vô số nghiệm
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.