viết chương trình pascal đếm xem từ 1 đến 50 có bao nhiêu số chia hết cho 4

0 bình luận về “viết chương trình pascal đếm xem từ 1 đến 50 có bao nhiêu số chia hết cho 4”

1. Program Hotboy;

   Uses crt;

   Var dem,i: byte ;

   Begin

   Clrscr;

   For i:=1 to 50 do

   If i mod 4 = 0 then inc(dem);

   Write(‘co so so chia het cho 4 la’,dem);

   Readln

   End.

   Bình luận

2. Program Dem_chia_het_cho_4;

   Uses: Crt;

   Var i, dem: Integer; {dem: Dem tat ca cac so tu 1 den 50 co bao nhieu so chia het cho 4}

   Begin

             Clrscr;

             dem:= 0;

             {kiem tra}

             For i:=1 to 50 do If i mod 4= 0 do dem:= dem +1;

             Writeln(‘ Tu 1 den 50 co: ‘,dem,’ so chia het cho 4′);

             Writeln(‘Nhan Enter 2 lan de thoat nha!’);

             Readln;

             Readln;

   END.

   Chúc bạn học tốt.

   Bình luận