In các số nguyên từ 1 đến n, trong đó n nhập từ phím
In các số nguyên từ 1 đến n, trong đó n nhập từ phím
program ct1;
uses crt;
var n,i:integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
write(i,' ');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long i,n,x,a[100];
int main()
{
cin>>n;
for (i=1; i<=n; i++)
{
cin>>a[i];
}
for (i=1;i<=n; i++)
cout<<a[i]<<" ";
return 0;
}
Viết chương trình tìm các số nguyên tố từ 1 đến N trong đó N được nhập từ bàn phím?
program tim_so_nguyen;
uses crt;
var i,N:integer;
begin
clrscr;
write('nhap so nguyen:');
readln(N);
if N <= 2 then write(N,' khong phai la so nguyen to')
else
begin
i:=2;
while ( N mod i <> 0 ) do i:=i+1;
if i=N then write(N,' la so nguyen to')
else write(N,' khong phai la so nguyen to');
end;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt;
cin>>n;
for (int i=2; i<=n; i++)
{
kt=0;
for (int j=2; j*j<=i; j++)
if (i%j==0) kt=1;
if (kt==0) cout<<i<<" ";
}
}
Viết CT nhập vào số nguyên dương n(n được nhập giá trị từ bàn phím), sau đó thực hiện các yêu cầu sau: a, nếu n=0 thì yêu cầu nhập lại số n b, tính tổng các số chẵn từ 1 đến n vừa nhập c, tính tích các số lẻ từ 1 đến n vừa nhập D, in các giá trị vừa tính được ra màn hình
uses crt;
var n,i,t,s:integer;
begin
clrscr;
repeat
readln(n);
until n<>0;
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
writeln(t);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
1. Nhập vào một số nguyên dương N từ bàn phím. In ra màn hình các giá trị trong phạm vi từ 1 đến N.
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
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.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị lag số lẻ trong phạm vi từ 1 đến N, sau đó in ra màn hình
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s+i;
writeln(s);
readln;
end.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 3 trong phạm vi từ 1 đến N,sau đó in ra màn hình
#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;
}