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