Các biện pháp phòng tránh tác nhân gây hại cho tim, mạch là

1. Khắc phục và hạn chế các nguyên nhân làm tăng nhịp tim và huyết áp không mong muốn.

2. Không sử dụng các chất kích thích có hại.

3. Cần phải liên tục kiểm tra tim, mạch.

4. Hạn chế ăn các thức ăn có hại cho tim, mạch như mỡ động vật.

5. Nếu bị sốc hoặc stress thì phải dùng ngay thuốc tim, mạch.

Chọn câu trả lời đúng nhất trong các câu sau:

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.