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

1 câu trả lời

uses crt;
var a,b:integer;
begin
clrscr;
read(a,b);
if (a+b) div 7=6 then writeln('Co') else writeln('Khong');
write((a+b) div 7);
readln
end.