Question

Cho một số nguyên a . kiểm tra xem a có chia hết cho 3 hay 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 pascal thể hiện thuật toán

       TIN 8 GIÚP HỘ CÁI  

Answer 1

a) 

input: a

output: a có chia hết cho 3 ko?

b)

B1: nhập a

B2: nếu a mod 3=0 thì a chia hết cho 3, nếu a mod 3 <>0 thì a ko chia hết cho 3

B3: thông báo a chia hết cho 3 ko

B4: kết thúc.

c)

var 

a:integer;

begin

write('nhập a=');

readln(a);

if a mod 3=0 then wirteln(a,' chia hết cho 3')

else

writeln(a,' ko chia hết cho 3');

readln

end.

Answer 2

var n:integer;

begin

 assign(input,'CHIA3.inp');reset(input);

assign(output,'CHIA3.out');rewrite(output);

read(n);

if n mod 3 = 0 then write('n chia het cho 3')

else write('n khong chi het cho 3');

end.