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