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
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 s:real;
i,n,t:integer;
begin
repeat
write('Nhap n > 0 va n chia het cho 5 ');readln(n);
until (n > 0) and (n mod 5 = 0);
t:=round(n/5);
s:=1;
for i:=1 to t do
s:=s+1/(5*i);
write('A = ',s:10:2);
readln
end.
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 |
Cau 1:
var i,dem:integer;
function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
bo:=true;
for i:=2 to n-1 do
if n mod i=0 then bo:=false;
if n>1 then ngto:=bo else ngto:=false;
end;
begin
for i:=2 to 100 do
if ngto(i) then dem:=dem+i;
write(dem);
readln;
end.
Cau 2:
var i,dem,n:longint;
begin
read(n);
dem:=1;
for i:=1 to n do
dem:=dem*i;
write(dem);
readln;
end.
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
program Tong;
var
n: integer;
i: integer;
sum: real;
begin
write('Nhap so nguyen duong n (chia het cho 5): ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 5 = 1 then
sum := sum + 1/i;
end;
writeln('Tong A la: ', sum);
readln;
end.