Bài 1:

Program HOC24;

var x,t: byte;

begin

write('Nhap so co 2 chu so: '); readln(x);

t:=(x mod 10)+(x div 10);

write('Tong 2 chu so cua so do la: ',t);

readln

end.

Bài 2: 

Program HOC24;

var ho_ten,gioi_tinh: string;

nam_sinh: integer;

begin

write('Ho va ten: '); readln(ho_ten);

write('Nam sinh: '); readln(nam_sinh);

write('Gioi_tinh: '); readln(gioi_tinh);

write('Nguoi do nam nay ',2021-nam_sinh,' tuoi');

readln

end.

Bài 3:

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap so co 4 chu so '); readln(s);

for i:=length(s) downto 1 do write(s[i]);

readln

end.

cíu mik vs các bạn ơiT^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.

a=list(map(int,input().split()))

print(sum(a))

Viết chương trình nhập vào số nguyên n và tính tổng các số lẻ (các số lẻ là số không chia hết cho 2) trong khoảng từ 1 đến n ( ví dụ nhập = 10, ta sẽ có tổng sau s=1+3+5+7+9=25)

uses crt;

var i,n,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

 if i mod 2=1 then s:=s+i;

writeln(s);

readln;

end.

uses crt;

var n,i,d,dem,kt,t,kt1,t1,t2,t3,max,min,x,j:integer;   

a,b:array[1..100]of integer;   

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

d:=length(st);

for i:=1 to d do 

val(st[i],a[i],x);

dem:=1;

b[1]:=a[1];

for i:=1 to d do 

begin     

kt:=0;     

for j:=1 to dem do       

if a[i]=b[j] then kt:=1;     

if kt=0 then       

begin           

inc(dem);           

b[dem]:=a[i];       

end; 

end;

writeln('Cac chu so cua ',n,' la: ');

for i:=1 to dem do 

write(b[i]:4);

writeln;

t:=0;

for i:=1 to d do 

t:=t+a[i];

writeln('Tong cac chu so cua ',n,' la: ',t);

kt1:=0;

for i:=2 to trunc(sqrt(t)) do 

if t mod i=0 then     

begin       

kt1:=1;       

break;     

end;

if (kt1=0) and (t>1) then writeln(t,' la so nguyen to')

else writeln(t,' khong la so nguyen to');

writeln('Cac chu so o vi tri le cua ',n,' la: ');

t1:=0;

for i:=1 to d do 

if i mod 2=1 then     

begin       

write(a[i]:4);       

t1:=t1+a[i];     

end;

writeln;

writeln('Tong cac chu so o vi tri le la: ',t1);

if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

writeln('Cac chu so o vi tri chan cua ',n,' la: ');

t2:=0;

for i:=1 to d do 

if i mod 2=0 then     

begin       

write(a[i]:4);       

t2:=t2+a[i];     

end;

writeln('Tong cac chu so o vi tri chan la: ',t2);

t3:=0;

for i:=1 to t2 do 

if t2 mod i=0 then t3:=t3+i;

if (t3=t2) and (t2>0) then writeln(t2,' la so hoan hao')

else writeln(t2,' khong la so hoan hao');

max:=a[1];

min:=a[1];

for i:=1 to d do 

begin     

if max<a[i] then max:=a[i];     

if min>a[i] then min:=a[i]; 

end;

writeln('Chu so lon nhat cua ',n,' la: ',max);

writeln('Chu so nho nhat cua ',n,' la: ',min);

writeln('Tong cua chung la: ',max+min);

readln;

end.

ai giúp với

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

int a,dv,ch;

int main()

{

cin>>a;

dv=a%10;

ch=a/10;

cout<<dv+ch;

return 0;

}

- Vì N là số tự nhiên có hai chữ số nên đặt \(N=\overline{ab}\) \(\left(0< a\le9;0\le b\le9;a,b\in N\right)\)

Ta có \(S\left(N\right)=S\left(\overline{ab}\right)=ab\) ; \(P\left(N\right)=P\left(\overline{ab}\right)=a+b\)

Vì \(N=S\left(N\right)+P\left(N\right)\) nên \(\overline{ab}=ab+a+b\)

\(\Rightarrow10a+b=ab+a+b\)

\(\Rightarrow9a=ab\Rightarrow b=9\) (vì a khác 0)

Vậy chữ số hàng đơn vị của N là 9 ---> chọn E

program tim_nguon_nho_nhat;

const
  MAX_NUMBER = 10000;

var
  M, nguon_nho_nhat: Integer;

function TinhTongChuSo(num: Integer): Integer;
var
  sumOfDigits: Integer;
begin
  sumOfDigits := 0;
  while num > 0 do
  begin
    sumOfDigits := sumOfDigits + (num mod 10);
    num := num div 10;
  end;
  TinhTongChuSo := sumOfDigits;
end;

function TimNguonNhoNhat(M: Integer): Integer;
var
  N, M_temp, M_digits, nguon_nho_nhat: Integer;
begin
  M_temp := M;
  nguon_nho_nhat := MAX_NUMBER;
  for N := 1 to M_temp do
  begin
    M_digits := TinhTongChuSo(N) + N;
    if M_digits = M_temp then
    begin
      if N < nguon_nho_nhat then
        nguon_nho_nhat := N;
    end;
  end;
  if nguon_nho_nhat = MAX_NUMBER then
    TimNguonNhoNhat := 0
  else
    TimNguonNhoNhat := nguon_nho_nhat;
end;

begin
  Readln(M);
  nguon_nho_nhat := TimNguonNhoNhat(M);
  if nguon_nho_nhat = 0 then
    Writeln('0')
  else
    Writeln('Nguon nho nhat cua ', M, ' la ', nguon_nho_nhat);
end.