Viết chương trình có sử dụng chương trình con tính tổng các số chia hết cho 3 từ 1 đến N. Giúp mình với mọi người ơi!! ( xài Pascal ạ ).

0 bình luận về “Viết chương trình có sử dụng chương trình con tính tổng các số chia hết cho 3 từ 1 đến N. Giúp mình với mọi người ơi!! ( xài Pascal ạ ).”

1. uses crt;
   var n:longint;
   {—Ham-tong—}
   function s(n:longint):longint;
   var i:longint;
   begin
      s:=0;
      for i:=1 to n do 
         if i mod 3=0 then 
            inc(s,i);
      writeln(‘Tong: ‘,s);
   end;
   {—Chuong-trinh-chinh—}
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      s(n);
      readln
   end.

   Trả lời

2. Program tinh_tong;

   Uses crt;
   Var n,i,t:longint;
   Begin
   Clrscr;
   Write(‘n=’); readln(n);
   t:=0;
   For i:=1 to n do
   If i mod 3=0 then t:=t+i;
   Writeln(‘tong cua cac so tu 1 den n chia het cho 3 la: ‘,t);
   Readln;
   End.

   Nhớ vote cho mình 5 sao và câu trả lời hay nhất nha ~~

   Trả lời