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.
```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 n,t:integer;
{------------------kiem-tra-so-nguyen-to----------------------------}
function ktnt(x:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then ktnt:=true
else ktnt:=false;
{----------------------chuong-trinh-chinh------------------------}
begin
clrscr;
t:=0;
repeat
write('Nhap n='); readln(n);
if (n mod 2=0) then t:=t+n;
until ktnt(n)=false;
writeln(t);
readln;
end.
Var a:array:[1..1000] of real;
i,n,max,min,s:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
max:=a[1];
min:=a[1];
For i:=2 to n do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
Write('Cac so vua nhap la ');
for i:=1 to n do write(a[i]:10:2):
Writeln;
Writeln('Tong la ',s:10:2);
Writeln('So nho nhat la ',min:10:2);
Write('So lon nhat la ',max:10:2);
Readln
End.
var
Mang: array[1..100] of Integer;
N, i, Tong, Min, Max: Integer;
begin
// Yêu cầu nhập độ dài của dãy số từ bàn phím
Write('Nhap do dai cua day so: ');
ReadLn(N);
// Yêu cầu nhập các phần tử của dãy từ bàn phím
for i := 1 to N do
begin
Write('Nhap phan tu thu ', i, ': ');
ReadLn(Mang[i]);
end;
// In ra màn hình các số vừa nhập
Write('Cac so vua nhap: ');
for i := 1 to N do
begin
Write(Mang[i], ' ');
end;
WriteLn;
// Tính tổng các phần tử của dãy số
Tong := 0;
for i := 1 to N do
begin
Tong := Tong + Mang[i];
end;
WriteLn('Tong cac phan tu cua day so la: ', Tong);
// Tìm giá trị nhỏ nhất của dãy số
Min := Mang[1];
for i := 2 to N do
begin
if Mang[i] < Min then
Min := Mang[i];
end;
WriteLn('Gia tri nho nhat cua day so la: ', Min);
// Tìm giá trị lớn nhất của dãy số
Max := Mang[1];
for i := 2 to N do
begin
if Mang[i] > Max then
Max := Mang[i];
end;
WriteLn('Gia tri lon nhat cua day so la: ', Max);
ReadLn;
end.
#include <bits/stdc++.h>
using namespace std;
long n,i,dem,t;
int main()
{
cin>>n;
dem=0;
t=0;
for (i=1; i<=n;i++)
if (n%i==0)
{
dem++;
t=t+i;
}
cout<<dem<<" "<<t;
return 0;
}
Program HOC24;
var a,b,c,max: integer;
begin
readln(a,b,c);
max=a;
if max>b then max=b;
if max>c then max=c;
write('So lon nhat trong 3 so la: ',max);
readln;
end.
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.
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem,j;
int main()
{
cin>>n;
x=n;
t=0;
while (n>0)
{
t=t+n%10;
n=n/10;
}
cout<<t;
dem=0;
for (i=2; i<=x; i++)
{
bool kt=true;
for (j=2; j*j<=i; j++)
if (i%j==0) kt=false;
if (kt==true) dem++;
}
cout<<dem;
return 0;
}
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.
Program HOC24;
var i,n: integer;
t: longint;
begin
read(n);
t:=n;
if n<>0 then
begin
while n<>0 do
begin
read(n);
t:=t+n;
end;
end;
readln;
readln
end.
Cách khác:
uses crt;
var n,t:integer;
begin
clrscr;
t:=0;
repeat
write('n='); readln(n);
t:=t+n;
until n=0;
writeln(t);
readln;
end.