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.
#include <bits/stdc++.h>
using namespace std;
long long i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) if (i%3==0) cout<<i<<" ";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
if (i%3==0) t+=i;
cout<<t;
return 0;
}
program tinh_tong;
uses crt;
var i,N:byte;
S:integer;
begin
writeln('Nhap so N='); readln(N);
i:=1; S:=0;
while i<=N do
begin
if (i mod 3=0) and (i mod 2=1) then S:=S+i;
i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha
c1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) s=s*i;
cout<<s;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) if (i%2==0) s=s*i;
cout<<s;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,t=0;
cin>>n;
for (int i=1; i<=n; i++)
if (i%6==0) t+=i;
cout<<t;
return 0;
}
program SoHoanHao;
uses crt;
var
i, j, n, s: integer;
begin
clrscr;
write('Nhap n: ');
readln(n);
for i := 1 to n do
begin
s := 0;
for j := 1 to i - 1 do
begin
if i mod j = 0 then
s := s + j;
end;
if s = i then
writeln(i);
end;
readln;
end.
Bài 1:
*Xác định bài toán
-Input: số n
-Output: Tích các số từ 1 tới n
*Mô tả thuật toán
-Bước 1: nhập n
-Bước 2: s←1;
-Bước 3: cho for i chạy từ 1 tới n
-Bước 4: s←s*i;
-Bước 5: Xuất s
-Bước 6: Kết thúc
*Viết chương trình
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac so tu 1 toi ',n,' la: ',s:0:0);
readln;
end.
Bài 2:
*Xác định bài toán
-Input: số n
-Output: Xuất ra màn hình các số chia hết cho 3 và có bao nhiêu số chia hết cho 3 trong khoảng từ 1 tới n
*Mô tả thuật toán
-Bước 1: Nhập n
-Bước 2: dem←0;
-Bước 3: cho for i chạy từ 1 tới n
-Bước 4: nếu i chia hết cho 3 thì xuất i và dem←dem+1
-Bước 5: Xuất dem
-Bước 6: kết thúc
*Viết chương trình
uses crt;
var n,i,dem:integer;
begin
clrscr;
repeat
write('n='); readln(n);
until n>0;
dem:=0;
writeln('Cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
if i mod 3=0 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln('So cac so chia het cho 3 trong khoang tu 1 toi ',n,' la:',dem);
readln;
end.
Bài 3:
*Xác định bài toán
-Input: dãy số từ 15 tới 35
-Output: Tích của dãy số đó
*Mô tả thuật toán
-Bước 1: s←1; i←15
-Bước 2: s←s*i;
i←i+1;
-Bước 3: nếu i<=35 thì quay lại bước 2
-Bước 4: xuất s
-Bước 5: kết thúc
*Viết chương trình
uses crt;
var i:integer;
s:real;
begin
clrscr;
i:=15; s:=1;
while i<=35 do
begin
s:=s*i;
i:=i+1;
end;
writeln('Tich cua cac so tu 15 toi 35 la: ',s:0:0);
readln;
end.
Bài 3:
Xác định bài toán:
-Input : dãy số từ 15 đến 35
-Output : Tích các số từ 15 đến 35
Thuật toán:
Bước 1: i←15; t←1;
Bước 2: Nếu i>=35 thì in ra kết quả và kết thúc
Bước 3: t←t*i;
Bước 4: i←i+1 quay lại bước 3
Viết chương trình:
Program hotrotinhoc_hoc24;
var i,t: integer;
begin
write('N='); readln(n);
i:=15; t:=1;
write('Tich cac so tu 1 den 35 la ');
while i<n do
begin
t:=t*i;
i:=i+1;
end;
readln
end.