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.
uses crt;
var p:real;
begin
clrscr;
write('Nhap chu vi:'); readln(p);
writeln(sqr(p/4):4:2);
readln;
end.
```cpp
#include <iostream>
#include <vector>
#include <algorithm>
int main() {
int n;
std::cout << "Enter the number of integers (n < 10^5): ";
std::cin >> n;
std::vector<int> numbers(n); std::cout << "Enter " << n << " integers: "; for (int i = 0; i < n; ++i) { std::cin >> numbers[i]; } int sumOfOdd = 0; for (int i = 0; i < n; ++i) { if (numbers[i] % 2 != 0) { sumOfOdd += numbers[i]; } } std::sort(numbers.begin(), numbers.end()); std::cout << "Sum of odd integers: " << sumOfOdd << std::endl; std::cout << "Sorted sequence: "; for (int i = 0; i < n; ++i) { std::cout << numbers[i] << " "; } std::cout << std::endl; return 0;
}
```
uses crt;
var x,n,d,i:longint;
st,st1:string;
a:integer;
{----------------------chuong-trinh-con-tim-ucln---------------------}
function ucln(a,b:longint):longint;
var t:longint;
begin
t:=b mod a;
while t<>0 do
begin
t:=a mod b;
a:=b;
b:=t;
end;
ucln := a;
end;
{-------------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap x='); readln(x);
str(x,st);
d:=length(st);
st1:='';
for i:=d downto 1 do
st1:=st1+st[i];
val(st1,n,a);
if ucln(x,n)=1 then writeln('Phai')
else writeln('khong phai');
readln;
end.
Dưới đây là một ví dụ về cách giải quyết bài toán này bằng ngôn ngữ Pascal:
function isPalindrome(s: string): boolean; var i, n: integer; begin n := Length(s); for i := 1 to n div 2 do begin if s[i] <> s[n - i + 1] then begin Result := false; Exit; end; end; Result := true; end; function countSuperPalindromes(s: string): integer; var i, j, n: integer; subStr: string; begin n := Length(s); Result := 0; // Đếm số xâu con đối xứng for i := 1 to n do begin subStr := ''; for j := i to n do begin subStr := subStr + s[j]; if isPalindrome(subStr) then Inc(Result); end; end; // Đếm số xâu con siêu đối xứng for i := 1 to n - 1 do begin subStr := ''; for j := i to n do begin subStr := subStr + s[j]; if isPalindrome(subStr) then Inc(Result); end; end; end; var s: string; begin s := 'ababcb'; writeln(countSuperPalindromes(s)); end.Kết quả của ví dụ trên sẽ là 3, tương ứng với 3 xâu con siêu đối xứng của xâu "ababcb" là "aba", "bcb", và "ababcb".
Lưu ý rằng đây chỉ là một cách giải quyết bài toán và có thể tồn tại các cách giải khác.
Program HOC24;
var x: integer;
begin
write('Nhap so: '); readln(x);
if x div 1000=1 then write('Mot nghin ');
if x div 1000=2 then write('Hai nghin ');
if x div 1000=3 then write('Ba nghin ');
if x div 1000=4 then write('Bon nghin ');
if x div 1000=5 then write('Nam nghin ');
if x div 1000=6 then write('Sau nghin ');
if x div 1000=7 then write('Bay nghin ');
if x div 1000=8 then write('Tam nghin ');
if x div 1000=9 then write('Chin nghin ');
if x div 1000<>0 then
if x div 100=0 then write('khong tram ');
if x div 100=1 then write('mot tram ');
if x div 100=2 then write('hai tram ');
if x div 100=3 then write('ba tram ');
if x div 100=4 then write('bon tram ');
if x div 100=5 then write('nam tram ');
if x div 100=6 then write('sau tram ');
if x div 100=7 then write('bay tram ');
if x div 100=8 then write('tam tram ');
if x div 100=9 then write('chin tram ');
if (x div 1000<>0) or (x div 100<>0) then
begin
if (x div 10<>0) then
begin
if x div 10=1 then write('muoi ');
if x div 10=2 then write('hai muoi ');
if x div 10=3 then write('ba muoi ');
if x div 10=4 then write('bon muoi ');
if x div 10=5 then write('nam muoi ');
if x div 10=6 then write('sau muoi ');
if x div 10=7 then write('bay muoi ');
if x div 10=8 then write('tam muoi ');
if x div 10=9 then write('chin muoi ');
if x mod 10=1 then write('mot');
if x mod 10=2 then write('hai');
if x mod 10=3 then write('ba');
if x mod 10=4 then write('bon');
if x mod 10=5 then write('lam');
if x mod 10=6 then write('sau');
if x mod 10=7 then write('bay');
if x mod 10=8 then write('tam');
if x mod 10=9 then write('chin');
end else
begin
if x mod 10=1 then write('le mot');
if x mod 10=2 then write('le hai');
if x mod 10=3 then write('le ba');
if x mod 10=4 then write('le tu');
if x mod 10=5 then write('le nam');
if x mod 10=6 then write('le sau');
if x mod 10=7 then write('le bay');
if x mod 10=8 then write('le tam');
if x mod 10=9 then write('le chin');
end;
readln
end.
1:
- Tranh lụa
- Tranh sơn dầu/Tranh sơn mài
- Tranh ghép hình/Tranh xếp hình
- Tranh khảm màu/Tranh khảm đá quý
- Tranh khắc đồng/Tranh khắc lụa/...
- Tranh thủy mặc(vẽ bằng mực tàu)
- Tranh cát
- Tranh gốm
- Tranh khắc đồng
- Tranh giấy cuốn
- Tranh dầu
- Tranh phun sơn
- Tranh thêu,...
2:
-Cân bằng đối xứng:
Đây là dạng cân bằng phổ biến trong tự nhiên. Chia ra bởi một trục giữa và không có sự khác biệt trong hai bên.
-Cân bằng bất đối xứng
Cân bằng bất đối xứng được sử dụng hầu hết trong các thiết kế và các tác phẩm nghệ thuật.
Chung — thành phần cần tạo trong Scratch Biến: N, a, b, i, d, temp Danh sách (list): Digits (chứa các chữ số theo thứ tự đọc), Result (kết quả in ra) Khối (custom blocks / my blocks): Tách chữ số (N) — tách N ra list Digits theo thứ tự đọc (trái → phải) LàNguyênTố? (x) — trả về true/false (kiểm tra nguyên tố) In chữ số chẵn của N (hoặc In chữ số xuất hiện chẵn theo lựa chọn) In các số nguyên tố trong (a,b) Bạn dùng khối ask ... and wait để nhập số rồi set N to answer (chuyển sang số nếu cần: set N to (answer)). 1) In ra các chữ số có trong N (ví dụ 53211 → 5, 3, 2, 1, 1) Ý tưởng: Dùng phép chia lấy dư để lấy chữ số từ phải sang trái, lưu vào list tạm theo thứ tự ngược, rồi đảo lại để được thứ tự trái→phải. Các bước/kịch bản Scratch (blocks): Khi nhấn cờ xanh: ask Nhập số nguyên N: and wait set N to (answer) delete all of Digits run Tách chữ số (N) Khối Tách chữ số (N): set temp to (abs of N) // xử lý số âm bằng lấy trị tuyệt đối nếu cần if <(temp) = 0> then add 0 to Digits stop this script repeat until <(temp) = 0> set d to (temp mod 10) add d to Digits // đây là thứ tự ngược (1st = cuối cùng) set temp to (floor (temp / 10)) // bây giờ Digits chứa chữ số theo thứ tự ngược, cần đảo lại set i to 1 create a list DigitsReversed (hoặc reuse Result) delete all of Result repeat (length of Digits) add (item (length of Digits - i + 1) of Digits) to Result change i by 1 // hiển thị Result say (join Các chữ số: (join (item 1 of Result) , ...)) // hoặc lặp và in từng phần Ví dụ chạy: nhập 53211 → Result = [5,3,2,1,1] → hiển thị 5, 3, 2, 1, 1. 2) In ra các chữ số của N là số chẵn Như mình nói: ví dụ bạn đưa ra (53211 → 2 3) mâu thuẫn vì 3 lẻ. Mình trình bày 2 phiên bản — bạn chọn cái bạn muốn. 2A) Phiên bản A: “những chữ số chẵn trong N” (giải nghĩa thông thường) Ý tưởng: Từ list Digits (từ bài 1), kiểm tra từng phần: nếu (digit mod 2) = 0 thì thêm vào Result. Khối In chữ số chẵn của N: delete all of Result for i from 1 to (length of Digits) // dùng biến i set d to (item i of Digits) if <((d mod 2) = 0)> then add d to Result // hiển thị Result (nếu rỗng thì nói 'không có') Ví dụ: 53211 → Digits=[5,3,2,1,1] → Result=[2] → hiển thị 2. 2B) Phiên bản B: “In ra các chữ số xuất hiện chẵn lần trong N” (Interpretation nếu bạn muốn chữ số có số lần xuất hiện là chẵn — ví dụ chữ số xuất hiện 2,4,... lần) Ý tưởng: Đếm tần suất từng chữ số (0–9), nếu tần suất mod 2 = 0 và >0 thì in. Khối In chữ số xuất hiện chẵn: delete all of Result tạo mảng đếm Count0..Count9 — trong Scratch bạn có thể dùng 10 biến c0, c1, ..., c9 hoặc một list Counts index 1..10 tương ứng chữ số 0..9 set all counts to 0 for i from 1 to length of Digits set d to (item i of Digits) change item (d+1) of Counts by 1 // (d+1 vì list index bắt đầu 1) for k from 1 to 10 if <((item k of Counts) > 0) and (((item k of Counts) mod 2) = 0)> then add (k-1) to Result hiển thị Result Ví dụ với 53211: Counts: 5→1, 3→1, 2→1, 1→2 → chữ số có tần suất chẵn: 1 (vì xuất hiện 2 lần) → Result=[1]. 3) Kiểm tra N có phải số nguyên tố không và in kết quả Ý tưởng: nếu N < 2 → không phải. Kiểm tra chia hết từ i = 2 tới i*i ≤ N (dùng i*i vì Scratch không có sqrt mặc định). Khối LàNguyênTố? (x): if <x < 2> then return false set i to 2 repeat until <(i * i) > x> if <(x mod i) = 0> then return false change i by 1 return true Kịch bản chính: ask Nhập số N để kiểm tra nguyên tố: and wait set N to (answer) if LàNguyênTố? (N) then say (join N là số nguyên tố) else say (join N không phải số nguyên tố) Ví dụ: nhập 17 → 17 là số nguyên tố. Nhập 20 → 20 không phải số nguyên tố. 4) Nhập 2 số nguyên a,b. In ra các số nguyên tố trong (a, b) Ý tưởng: Lấy start = min(a,b), end = max(a,b). Lặp k từ start+1 đến end-1, kiểm tra LàNguyênTố?(k) và thêm vào Result. Kịch bản: ask Nhập a: and wait → set a to answer ask Nhập b: and wait → set b to answer set start to (min(a,b)) set end to (max(a,b)) delete all of Result set k to start + 1 repeat until <k > end - 1> if LàNguyênTố?(k) then add k to Result change k by 1 hiển thị Result (nếu rỗng thì say Không có số nguyên tố trong khoảng) Ví dụ: a=2, b=10 → in 3 5 7. Mẹo ráp khối trong Scratch (chi tiết tiện dùng) Dùng my block (Make a Block) để tạo Tách chữ số, LàNguyênTố? (x). Với LàNguyênTố? bạn có thể làm block có checkbox run without screen refresh để chạy nhanh hơn. Dùng list để chứa Digits và Result. Khi in nhiều số, bạn có thể tạo 1 chuỗi (string) nối các item bằng join để hiển thị gọn: Lặp i=1..length(Result): set output to (join output (join (item i of Result) )) rồi say output. Xử lý số âm: nếu muốn cho phép N âm, trước khi tách chữ số dùng temp = abs(N). Tóm tắt ngắn (bản để bạn copy nhanh vào Scratch) Tạo list Digits, Result, Counts (nếu cần). Tạo my block Tách chữ số (N) theo thuật toán chia dư. Tạo my block LàNguyênTố? (x) kiểm tra bằng i*i ≤ x. Viết các script chính dùng ask → gọi các block → hiển thị Result.
bài nào???
Bài e đăng lại rồi đó