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.