BÀI TẬP 13: TÌM SỐ

Viết chương trình tìm tất cả các số tự nhiên có ba chữ số. Biết rằng, số đó chia hết cho 6 dư 2 và tổng các chữ số của nó bằng 20.

Ví dụ: 398, 488, ........

CODE THAM KHẢO:

Program Tim_so;

uses crt;

var a,b,c: byte;

begin

    clrscr;

    for a:=1 to 9 do

    for b:=0 to 9 do

    for c:=0 to 9 do

    if ((a+b+c) mod 6 =2) and (a+b+c = 20) then write(a,b,c,' ');

    readln;

end.