VCT pascal
1) - Kiểm tra n có phải số nguyên tố không
-Xuất ra màn hình các số nguyên tố từ 2 đến n rồi tính tổng của chúng
2) - Kiểm tra n có phải số hoàn toàn không
- Xuất ra màn hình các số hoàn toàn chia hết cho 3 và 9
K
Khách
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.
Những câu hỏi liên quan
20 tháng 11 2019
1: VCT pascal kiểm tra số n có phải là số nguyên tố không
uses crt;
var n,i,kt:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if n<=1 then writeln('ban da nhap sai,yeu cau ban nhap lai');
until n>1;
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
2:VCT pascal kiểm tra số n có phải là số hoàn hảo không
uses crt;
var n,i,t:integer;
begin
clrscr;
write('nhap n:'); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then begin
t:=t+i;
end;
if t=n then writeln(n,' la so hoan hao')
else write(n,' khong la so hoan hao');
readln;
end.
3:VCT pascal kiểm tra số n xuất ra màn hình các số nguyên tố từ 2 đến n
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if n<=2 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until n>2;
writeln('day cac so nguyen to trong khoang tu 2 toi ',n,' la:');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
NB
16 tháng 4 2023
program TinhTongVaUocSo;
var
a, b, tong, i: integer;
laSoNguyenTo: boolean;
begin
write('Nhap a: ');
readln(a);
write('Nhap b: ');
readln(b);
tong := a + b;
writeln('Tong cua a va b la: ', tong);
writeln('Uoc so cua tong la:');
for i := 1 to tong do
begin
if tong mod i = 0 then
writeln(i);
end;
laSoNguyenTo := true;
if tong < 2 then
laSoNguyenTo := false
else
for i := 2 to trunc(sqrt(tong)) do
if tong mod i = 0 then
begin
laSoNguyenTo := false;
break;
end;
if laSoNguyenTo then
writeln('Tong a va b la so nguyen to')
else
writeln('Tong a va b khong phai la so nguyen to');
readln;
end.
15 tháng 4 2023
program TinhTongVaUocCuaTong;
var a, b, tong, i: integer;
SoNguyenTo: boolean;
begin
writeln('Nhap vao hai so a va b (a > 0, b > 0): ');
write('a = ');
readln(a);
write('b = ');
readln(b);
tong := a + b;
writeln('Tong cua a + b = ', tong);
writeln('Uoc cua tong a + b: ');
for i := 1 to tong do
begin
if tong mod i = 0 then
writeln(i);
end;
SoNguyenTo := true;
if tong < 2 then
SoNguyenTo := false
else
for i := 2 to trunc(sqrt(tong)) do
begin
if tong mod i = 0 then
begin
SoNguyenTo := false;
break;
end;
end;
if SoNguyenTo then
writeln('Tong a + b la so nguyen to:')
else
writeln('Tong a + b khong phai la so nguyen to:');
end.
24 tháng 2 2022
uses crt;
var n,m,i,dem,t,t1,d1:integer;
//chuongtrinhcon
function ktnt(var n:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if (kt=true) then ktnt:=true
else ktnt:=false;
end;
//chuongtrinhchinh
begin
clrscr;
readln(n,m);
if (ktnt(n)=true) then writeln(n,' la so nguyen to')
else writeln(n,' ko la so nguyen to');
dem:=0;
t:=0;
for i:=2 to n do
if (ktnt(i)=true) then
begin
write(i:4);
t:=t+i;
dem:=dem+1;
end;
writeln;
writeln(t,' ',dem);
t1:=0;
d1:=0;
for i:=n to m do
if ktnt(i)=true then
begin
write(i:4);
t1:=t1+i;
inc(d1);
end;
writeln;
writeln(t1,' ',d1);
readln;
end.
30 tháng 4 2022
c:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
d:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,nn;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=1; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
13 tháng 12 2020
uses crt;
var a:array[1..100]of integer;
i,n,t,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
kt:=0;
for j:=2 to trunc(sqrt(t)) do
if t mod j=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
readln;
end.
13 tháng 12 2020
Cậu ơi sai khúc write('A[',i,']='); readln(a[i]); rồi nó cứ bị sao sao á
13 tháng 12 2020
uses crt;
var a:array[1..100]of integer;
i,n,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so vua nhap la: ',t);
if t>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
end
else writeln(t,' khong la so nguyen to');
readln;
end.
1:
uses crt;
var n,t,i,j,kt:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end
else writeln(n,' khong la so nguyen to');
writeln('cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
t:=0;
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
write(i:4);
t:=t+i;
end;
end;
writeln;
writeln('tong cac so nguyen to trong khoang tu 2 toi ',n,' la: ',t);
readln;
end.
số hoàn toàn là số như thế nào bạn?