Viết chương trình các số chia hết cho 3 từ 15 đến 3500
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var i,n,d:longint;
begin
d:=0;
writeln('nhapn=');read(n);
for i:=1 to n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+i;
end;
writeln('tong=',d);
readln;
end;
Program tinhtong;
uses crt;
var i, SUM, N : integer;
Begin
Clrscr;
Write('Nhap N: '); Readln(n);
SUM := 0; For i:=1 to N do if (i mod 3 = 0) then SUM:= SUM + i;
Write('Tong la: ', SUM);
Readln;
End.
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac so chia het cho 3 la: ',t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=20; i++)
if ((i%3==0) and (i%2==1)) t=t+i;
cout<<t;
return 0;
}
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 12 do
if i mod 2=0 then t:=t+i;
writeln(t);
readln;
end.
n = int(input("Nhap vao mot so n: "))
tong = 0
for i in range(1, n):
if i % 3 == 0:
tong += i
print("Tong cac so chia het cho 3 tu 1 den", n-1, "la:", tong)
#include <bits/stdc++.h>
using namespace std;
int main() {
int N=100, dem=0;
for(int i=1; i<=N; i++)
{if(i%3==0) dem+=1;}
cout << dem << endl;
return 0;
}
Chúc bn học tốt!
uses crt;
var i:integer;
begin
clrscr;
for i:=15 to 3500 do
if i mod 3=0 then write(i:4);
readln;
end.