Tìm các từ, cụm từ thích hợp điền vào chỗ trống (…) thay cho (1), (2), (3), (4) trong các câu sau:

          Người là động vật thuộc lớp Thú. Điểm giống nhau giữa người và động vật thuộc lớp Thú là trên cơ thể đều có lông mao; răng phân hóa thành răng cửa, răng nanh và răng hàm;…(1)…; có tuyến sữa và nuôi con bằng sữa. Những điểm giống nhau này đã chứng tỏ rằng con người và động vật thuộc lớp Thú có chung …(2)… Điểm khác nhau giữa người và động vật thuộc lớp Thú là người biết chế tạo và sử dụng công cụ lao động vào những mục đích nhất định; có tư duy …(3)…, chữ viết; biết dùng lửa để nấu chín thức ăn; có sọ não lớn hơn mặt còn động vật thì ngược lại. Đặc điểm khác nhau này đã chứng minh rằng, tuy người và động vật thuộc lớp Thú có quan hệ về nguồn gốc nhưng loài người phát triển và …(4)… theo một hướng thích nghi với đời sống xã hội.

Cho mình hỏi là trong hai cách viết chương trình này thì cách nào đúng nhất và có thể chạy chương trình trên pascal ạ?

Viết chương trình nhập vào một số có ba chữ số và cho biết số hàng đơn vị, hàng chục và hàng trăm?

Ví dụ: Hay nhap vao mot so co ba chu so: 357

Chu so hang don vi la: 7

Chu so hang chuc la: 5

Chu so hang tram la: 3

C1

Program Nguyen_Van_Thanh;

Uses crt;

Var so, dv, chuc, tram: Integer;

BEGIN

Write(‘Hay nhap vao mot so co ba chu so: 357‘);

Readln(so);

dv:= so mod 10;

so:= so div 10;

chuc:= so mod 10;

tram:= so div 10;

Writeln(‘Chu so hang don vi la: ‘7,dv);

Writeln(*Chu so hang chuc la: ‘5,chuc);

Writeln(‘Chu so hang tram la: ‘3,tram);

Readln;

END

C2

Program Nguyen_Van_Thanh;

Uses crt;

Var so, dv, chuc, tram: Integer;

BEGIN

Write('Hay nhap vao so co ba chu so: ');

Readln(so);

dv:= so mod 10;

so:= so div 10;

chuc:= so mod 10;

tram:= so div 10;

Writeln('Chu so hang don vi la: ',dv);

Writeln('Chu so hang chuc la: ',chuc);

Writeln('Chu so hang tram la: ',tram);

Readln;

END.