Viết chương trình nhập vào 1 số nguyên dương n. Hay đoán xem có bao nhiêu số chia hết cho 3 và 5. Tính tổng các số đó

0 bình luận về “Viết chương trình nhập vào 1 số nguyên dương n. Hay đoán xem có bao nhiêu số chia hết cho 3 và 5. Tính tổng các số đó”

1. mk làm trên pascal nha vì mk ko bt lớp 11 học pascal hay C++ nên mk làm pascal vì mk bt mỗi pascal thôi

   uses crt;

   var  a,i,s,t:longint;

   begin

         clrscr;

        writeln(‘hay nhap n:’);readln(n);

   s:=0; t:=0;

   for i:=1 to n do 

       if (i mod 3 =0) or ( i mod 5=0) then  begin

   s:=s+1; t:=t +i;

   end;

   writeln(‘co tat ca ‘,s ,’ chu so ‘);

   write (‘ tong la:’,t);

   read

   end.

   bn thử xem có chạy đc không , nếu không thì bỏ lệnh s:=0 mà mk bôi đen đi

   Bình luận