Nhập số nguyên dương n, in ra tổng các số nguyên dương từ 1 đến n là bội của 3 hoặc 5.

0 bình luận về “Nhập số nguyên dương n, in ra tổng các số nguyên dương từ 1 đến n là bội của 3 hoặc 5.”

1. uses crt;

   var n,tong,i:integer;

   BEGIN

     clrscr;

      write(‘Nhap so nguyen duong n: ‘);readln(n);

      tong:=0;

       for: i:=1 to n do

       if (i mod 3=0) or (i mod 5=0) then tong:=tong+i;

     writeln(‘Tong cac so chia het cho 3 hoac 5 tu 0–> ‘,n,‘ la: ‘,tong);

    readln

   END.

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

   Bình luận

2. uses crt

   var n,tong,i:integer

   BEGIN clrscr

   write(‘Nhap so nguyen duong n: ‘);readln(n)

   tong:=0 

   for i:=1 to n do

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

    tong:=tong+i

   writeln(‘Tong cac so chia het cho 3 hoac 5 tu 0–> ‘,n,‘ la: ‘,tong)

   readln

   END.

   cuối dòng bổ sung chấm phẩy

   Bình luận