Cho bài toán: Nhập vào một số tự nhiên n, in ra màn hình số đó có chia hết cho 2 và 5 không? Em hãy: a) Xác định bài toán. b) Mô tả thuật toán. c) Viết chương trình thực hiện bài toán trên.

2 câu trả lời

a) xác định input: x output: x là chẵn hay lẻ b)  B1: nhập x B2: Nếu x chia hết cho 2 thì x là số chẵn, không chia hết thì là số chẵn B3: trả lời số x là số chẵn hay là số lẻ B4: kết thúc thuật toán. c) var x:integer; begin write("nhập x="); readln(x); if x mod 2=0 then writeln(x," là số chẵn") else writeln(x," là số lẻ"); readln; Đây bạn nhé chúc bạn học tốt

a)

Input: số tự nhiên n.

Output: số n có chia hết cho 2 và 5 không.

b)

B1: Nhập vào một số tự nhiên n.

B2: Nếu (n mod 2=0) và (n mod 5=0) thì in ra Có ngược lại in ra không.

c)

uses crt;
var n:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   if (n mod 2=0)and(n mod 5=0) then writeln('Co') else writeln('Khong');
readln
end.

Câu hỏi trong lớp Xem thêm