Mình học pascal bạn ơi, thế này khó hiểu quá

đề bạn ghi không đúng thì làm sao làm được

bước 1: nhập n

bước 2: đổi n ra chuỗi bằng cách dùng hàm str(n,st);

bước 3: d:=length(st); t:=0;

bước 4: chạy for i từ 1 tới d

bước 5: đổi st[i] ra số bằng cách sử dụng hàm val(st[i],x,y);

bước 6: t:=t+x;

bước 7 nếu t chia hết cho d thì viết (n,' la so dep')

không thì viết (n,' khong la so dep');

bước 8:kết thúc

câu 1:

bước 1: nhập n

bước 2: đổi n ra chuỗi st bằng cách sử dụng hàm str(n,st)

bước 3: d:=length(st);t:=0;

bước 4: chạy for i đi từ 1 tới d

bước 5: đổi st[i] ra số bằng cách sử dụng hàm val(st[i],x,y);

bước 6: t:=t+x;

bước 7: viết t ra màn hình

bước 8: kết thúc

câu 2:

bước 1: nhập n

bước 2: t:=0;

bước 3: quét for i đi từ 1 tới n

bước 4: nếu n chia hết cho i thì t:=t+i;

bước 5: viết t ra màn hình

bước 6: kết thúc

Những hành vi của học sinh là vi phạm pháp luật trong xã hội tin học hoá là :

• Tung những hình ảnh, phim đồi trị lên mạng
• Xâm phạm thông tin cá nhân hoặc của tập thể nào đó. Sao chép bản quyền không hợp pháp
• Lây lan virut qua mạng

- Những hành vi của học sinh là vi phạm pháp luật trong xã hội tin học hoá là :

• Tung những hình ảnh, phim đồi trị lên mạng
• B. Xâm phạm thông tin cá nhân hoặc của tập thể nào đó. Sao chép bản quyền không hợp pháp
• C. Lây lan virut qua mạng

câu 1:

-bước 1: nhập n

-bước 2: t:=0; chạy for từ 1 tới n div 2

-bước 3: nếu n chia hết cho i thì t:=t+i;

-bước 4: nếu t=n thì viết(n,' la so hoan hao');

-bước 5: kết thúc

câu 2:

-bước 1: nhập n

-bước 2: đổi n ra st bằng cách dùng hàm str(n,st);

-bước 3: d:=length(st);

-bước 4: chạy for từ d xuống 1

-bước 5: viết st[i];

-bước 6: kết thúc