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.
Đổ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ế.
Thuật toán
-Bước 1: Nhập dãy số
-Bước 2: t←0; i←1;
-Bước 3: Nếu a[i] mod 3=0 thì t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t
-Bước 7: Kết thúc
uses crt;
var a:array[1..1000] of integer;
n,i: integer;
sa,d: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
sa:=0;
d:=0;
for i:=1 to n do
if a[i] > 0 then d:=d+1 else if a[i] < 0 then sa:=sa+1;
writeln('Trong day co ',d,' so duong');
writeln('Trong day co ',sa,' so am');
readln
end.
Bài 1:
Ý tưởng: Sau khi nhập bán kính r, chúng ta sẽ tính diện tích theo công thức \(S=r^2\cdot pi\)
Xác định bài toán
-Input: Bán kính r
-Output: Diện tích hình tròn có bán kính r
Mô tả thuật toán
-Bước 1: Nhập r
-Bước 2: \(s\leftarrow pi\cdot sqr\left(r\right)\)
-Bước 3: Xuất s
-Bước 4: Kết thúc
Bài 2:
Ý tưởng: Sau khi nhập cạnh a chúng ta sẽ tính chu vi hình vuông có cạnh a theo công thức \(S=4\cdot a\)
Xác định bài toán:
-Input: Cạnh a
-Output: Chu vi hình vuông có cạnh a
Mô tả thuật toán
-Bước 1: Nhập a
-Bước 2: s←a*4;
-Bước 3: Xuất s
-Bước 4: Kết thúc
Ý tưởng: Sau khi nhập dãy xong rồi chúng ta sẽ xét từng phần tử trong dãy nếu có phần tử nào chia 10 dư 0 hoặc 5 thì tăng dem lên, và dem chính là két quả của đề bài
1:
-Bước 1: Nhập n và nhập dãy số, nhập k
-Bước 2: dem←0; i←1;
-Bước 3: Nếu a[i]=k thì dem←dem+1;
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất dem
-Bước 7: Kết thúc
Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được
Input : Dãy A gồm N số nguyên a1....aN;
Output : Trung bình cộng của các số dương;
B1 : Nhập N số nguyên a1.... aN;
B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;
B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];
B4 : dem <--- dem + 1;
B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;
B 6 : i <--- i + 1 rồi quay lại B3;