VCT 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

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap hai so a va b : ');readln(a, b);

if (a + b) div 7 = 6 then writeln('(a + b) chia 7 lay phan nguyen bang 6')

else writeln('(a + b) chia 7 lay phan nguyen khong bang 6');

writeln('(a + b) div 7 = ', (a + b) div 7);

readln

end.

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

If (a+b) div 7=6 then Writeln(' (a+b) chia 7 lay phan nguyen bang 6')

                          Else Writeln(' (a+b) chia 7 lay phan nguyen khong bang 6');

Writeln('(a+b) div 7=',(a+b) div 7);

Readln

End.