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 ạ ).

2 câu trả lời

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.

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 ~~

Câu hỏi trong lớp Xem thêm