viết chương trình tính tổng của các số nguyên chia hết cho 3t rong phạm vi từ 1 đến 30

0 bình luận về “viết chương trình tính tổng của các số nguyên chia hết cho 3t rong phạm vi từ 1 đến 30”

1. @Meoss_

   Program Tinh_tong3;

   Uses Crt;

   Var i,n,S:integer;

   Begin

   Clrscr;

   Writeln(‘Ban hay nhap n’); Readln(n);

   S:=0;

    For i:=1 to 30 do

   begin

     if i mod 3 <> 0 then S:=S+i; end;

   Writeln(‘ Tong cac so chia het cho 3 tu 1 den 30 la ‘, S );

    Readln;

   End.

   Bình luận

2. program phuongt;
   uses crt;
      var i, s: integer;
   begin
          clrscr;
          s:=0;
          for i:=1 to 30 do if i mod 3 then s:=s+i;
          write(‘Tong = ‘, s);
          readln
   end. 

   Bình luận