Câu 1: Viết chương trình: a. in ra màn hình các số là bội của 6 và 9 trong phạm vi từ 1 đến 100. b. Tính tổng các số chẵn trong phạm vi từ 50 đến 100.

0 bình luận về “Câu 1: Viết chương trình: a. in ra màn hình các số là bội của 6 và 9 trong phạm vi từ 1 đến 100. b. Tính tổng các số chẵn trong phạm vi từ 50 đến 100.”

1. Câu 1:

   program bai_giai;

   uses crt;

   var i,d:byte;

         t:integer;

   begin

           clrscr;

           d:=0; t:=0;

           write(‘a. Cac so la boi cua 6 va 9 la: ‘);

           for i:=1 to 100 do

                   if (i mod 6=0) and (i mod 9)=0 then write(i,’ ‘);

           for i:=50 to 100 do

                   begin

                           if i mod 2=0 then t:=t+i;

                           if i mod 3=0 then d:=d+1;

                   end;

           writeln;

           writeln(‘b. Tong cac so chan tu 50 den 100 la: ‘,t);

           writeln(‘c. Tu 50 den 100 co ‘,d,’ so chia het cho 3′);

           readln;

   end.

   Câu 2:

   program nhiet_do;

   uses crt;

   var A:array[1..1000] of integer;

         n,i,t:integer;

   begin

           clrscr;

           write(‘Nhap so ngay tinh: ‘);  readln(n);

           t:=0;

           for i:=1 to n do

                   begin

                           write(‘Nhiet do ngay thu ‘,i,’: ‘);  readln(A[i]);

                           t:=t+A[i];

                   end;

           write(‘Nhiet do trung binh la: ‘,t/n:2:2);

           readln;

   end.

   Bình luận