VTC nhập vào 2 số a,b.Cho biết(a+b) chia 7 lấy phần nguyên có bằng 6 không?in kết quả và cho biết kết quả của(a+b)/7 lấy phần nguyên

2 câu trả lời

var t,a,b:longint;
begin
read(a,b);
if (a+b) div 7=6 then write('bang 6','kq chia lay phan nguyen');
t:=(a+b) div 7;
write(t);
end.

code

program baitap;


uses crt;


var a,b,t:longint;


begin


write('nhap a,b=');


read(a,b);


if (a+b) div 7 = 6 then writeln('(a+b) div 7 bang 6')

else writeln('(a+b) div 7 ko bang 6');


t:= (a+b) div 7;


write('(a+b) div 7 =',t);


readln;


readln;


end.