viết chương trinh pascal nhập số n từ bàn phím xuất ra màn hình dòng 1 các chữ số của n dong2 tổng các chữ số của n dòng 3 kiểm tra tổng các chữ số của n có phải là số nguyên tố không ? ...

D

dinhnguyentuhuy

19 tháng 5 2020

viết chương trinh pascal nhập số n từ bàn phím xuất ra màn hình + dòng 1 các chữ số của n + dong2 tổng các chữ số của n + dòng 3 kiểm tra tổng các chữ số của n có phải là số nguyên tố không ? + dòng 4 các số chình phương từ 1 đến tổng các chữ số của n giúp minh với...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

19 tháng 5 2020

uses crt;

var n,i,d,t,x,kt:integer;

st:string;

a:array[1..255]of integer;

begin

clrscr;

write('n='); readln(n);

str(n,st);

d:=length(st);

writeln('Cac chu so cua ',n,' la: ');

for i:=1 to d do

write(st[i]:4);

writeln;

t:=0;

for i:=1 to d do

begin

val(st[i],a[i],x);

t:=t+a[i];

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

if t>1 then

begin

kt:=0;

for i:=2 to t-1 do

if t mod i=0 then kt:=1;

if kt=0 then writeln('Tong cac chu so cua ',n,' la so nguyen to')

else writeln('Tong cac chu so cua ',n,' khong la so nguyen to');

end

else writeln('Tong cac chu so cua ',n,' khong la so nguyen to');

writeln('Cac so chinh phuong tu 1 den tong cac chu so cua ',n,' la: ');

for i:=1 to t do

if sqrt(i)=trunc(sqrt(i)) then write(i:4);

readln;

end.

Đúng(0)

D

dinhnguyentuhuy

23 tháng 5 2020

bạn ơi bài này khi mình nhấn số lớn cỡ 1000 thì nó cứ có lỗi là soa vậy sửa lại giúp mình với

Đúng(0)

D

dinhnguyentuhuy

30 tháng 1 2021

Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện+ dòng 1 xuất ra màn hình dãy số vừa nhập+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?+ dòng 5 số...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

30 tháng 1 2021

uses crt;

var a:array[1..100]of integer;

i,n,t,t1,t2,t3,min,max:integer;

kt:boolean;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day 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];

kt:=true;

for i:=2 to trunc(sqrt(t)) do

if t mod i=0 then

begin

kt:=false;

break;

end;

writeln('Tong cua day so la: ',t);

if (kt=true) and (t>1) then writeln(t,' la so nguyen to')

else writeln(t,' khong la so nguyen to');

writeln('Cac so o vi tri le cua day so la: ');

t1:=0;

for i:=1 to n do

if i mod 2=1 then

begin

write(a[i]:4);

t1:=t1+a[i];

end;

writeln;

writeln('Tong cac so o vi tri le cua day so la: ',t1);

if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

writeln('Cac so o vi tri chan cua day so la: ');

t2:=0;

for i:=1 to n do

if i mod 2=0 then

begin

write(a[i]:4);

t2:=t2+a[i];

end;

writeln;

writeln('Tong cac so o vi tri chan cua day so la: ',t2);

t3:=0;

for i:=1 to t2 do

if t2 mod i=0 then t3:=t3+i;

if t3=t2 then writeln(t2,' la so hoan hao')

else writeln(t2,' khong la so hoan hao');

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat cua day la: ',max);

writeln('So nho nhat cua day la: ',min);

writeln('Tong cua so lon nhat va so nho nhat la: ',max+min);

readln;

end.

Đúng(1)

D

dinhnguyentuhuy

28 tháng 1 2021

Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện + dòng 1 xuất ra màn hình dãy số vừa nhập + dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ? + dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không? + dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

28 tháng 1 2021

uses crt;

var a:array[1..100]of integer;

n,i,t,kt,j,t1,t2,t3,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day 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 cua day so vua nhap la: ',t);

kt:=0;

for i:=2 to trunc(sqrt(t)) do

if t mod i=0 then

begin

kt:=1;

break;

end;

if (kt=0) and (t>1) then writeln(t,' la so nguyen to');

else writeln(t,' khong la so nguyen to');

t1:=0;

writeln('Cac so o vi tri le cua day la: ');

for i:=1 to n do

if i mod 2=1 then

begin

write(a[i]:4);

t1:=t1+a[i];

end;

writeln;

writeln('Tong cac so o vi tri le la: ',t1);

if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

t2:=0;

writeln('Cac so o vi tri chan la: ');

for i:=1 to n do

if i mod 2=0 then

begin

write(a[i]:4);

t2:=t2+a[i];

end;

writeln;

writeln('Tong cac so o vi tri chan la: ',t2);

t3:=0;

for i:=1 to t2 do

if t2 mod i=0 then t3:=t3+i;

if t3=t2 then writeln(t2,' la so hoan hao')

else writeln(t2,' khong la so hoan hao');

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

writeln('Tong cua hai so lon nhat va nho nhat la: ',max+min);

readln;

end.

Đúng(1)

D

dinhnguyentuhuy

30 tháng 1 2021

cái dong đầu bị lỗi chỗ a[i] á xem lại hộ mình với

Đúng(0)

KA

Kỳ AnH

14 tháng 12 2022

VCT pascal nhập số n từ bàn phím xuất ra màn hình:+dòng 1:các ước của n+dòng 2:nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 1 đến n+dòng 3: nếu n là số chẵn thì xuất ra màn hình các số hoàn hảo+dòng 4:tổng các ước của n(Bài thì cuối kỳ của mình nên cần rất gấp mong nhận được câu trả lời...

Đọc tiếp

#Tin học lớp 8

0

NT

Nguyễn Thanh Anh

14 tháng 12 2022

Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:+ Tính n!+ Nhập số x từ bàn phím.Tính nxBài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình + Dòng 1: Các ước của n+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n+ Dòng 4: Tổng các ước của n( 2 bài khác nhau mọi người làm riêng ra...

Đọc tiếp

#Tin học lớp 8

0

D

dinhnguyentuhuy

13 tháng 12 2020

Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện

+ Xuất ra màn hình các số vừa nhập

+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?

Làm giúp với !

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

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.

Đúng(0)

D

dinhnguyentuhuy

13 tháng 12 2020

Cậu ơi sai khúc write('A[',i,']='); readln(a[i]); rồi nó cứ bị sao sao á

Đúng(0)

D

dinhnguyentuhuy

13 tháng 12 2020

Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện + Xuất ra màn hình các số vừa nhập +Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ? Làm giúp với...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

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.

Đúng(1)

D

dinhnguyentuhuy

31 tháng 1 2021

viết chương trình pascal nhập n thực hiệndòng 1 xuất ra màn hình các chữ số của ndòng 2 tổng các chữ số của n và xét xem tổng đó có phải là số nguyên tố khôngdòng 3 các chữ số ở vị trí lẻ của n và tổng của chúng. Xét tổng đó có phải là số chính phương khôngdòng 4 các chữ số ở vị trí chẵn của n và tổng của chúng. Xét tổng đó có phải là số hoàn hảo khôngdòng 5 số lớn nhất và số nhỏ nhất của n và...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

31 tháng 1 2021

uses crt;

var n,i,d,dem,kt,t,kt1,t1,t2,t3,max,min,x,j:integer;

a,b:array[1..100]of integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

d:=length(st);

for i:=1 to d do

val(st[i],a[i],x);

dem:=1;

b[1]:=a[1];

for i:=1 to d do

begin

kt:=0;

for j:=1 to dem do

if a[i]=b[j] then kt:=1;

if kt=0 then

begin

inc(dem);

b[dem]:=a[i];

end;

writeln('Cac chu so cua ',n,' la: ');

for i:=1 to dem do

write(b[i]:4);

writeln;

t:=0;

for i:=1 to d do

t:=t+a[i];

writeln('Tong cac chu so cua ',n,' la: ',t);

kt1:=0;

for i:=2 to trunc(sqrt(t)) do

if t mod i=0 then

begin

kt1:=1;

break;

end;

if (kt1=0) and (t>1) then writeln(t,' la so nguyen to')

else writeln(t,' khong la so nguyen to');

writeln('Cac chu so o vi tri le cua ',n,' la: ');

t1:=0;

for i:=1 to d do

if i mod 2=1 then

begin

write(a[i]:4);

t1:=t1+a[i];

end;

writeln;

writeln('Tong cac chu so o vi tri le la: ',t1);

if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

writeln('Cac chu so o vi tri chan cua ',n,' la: ');

t2:=0;

for i:=1 to d do

if i mod 2=0 then

begin

write(a[i]:4);

t2:=t2+a[i];

end;

writeln('Tong cac chu so o vi tri chan la: ',t2);

t3:=0;

for i:=1 to t2 do

if t2 mod i=0 then t3:=t3+i;

if (t3=t2) and (t2>0) then writeln(t2,' la so hoan hao')

else writeln(t2,' khong la so hoan hao');

max:=a[1];

min:=a[1];

for i:=1 to d do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Chu so lon nhat cua ',n,' la: ',max);

writeln('Chu so nho nhat cua ',n,' la: ',min);

writeln('Tong cua chung la: ',max+min);

readln;

end.

Đúng(1)

K

KenShi

17 tháng 12 2021

1. Thực hànhBài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 12 2021

Bài 2:

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

Đúng(0)

BN

Bùi Ngọc Khánh Huyền

6 tháng 8 2023

3. Nhập vào số nguyên n từ bàn phím. Viết chương trình tính tổng n giaiVới mỗi số tự nhiên N (1<=N<=1000) Tìm các số tự nhiên n thoả mãn:+ N là số nguyên tố.+ Tổng các chữ số của N cũng là số nguyên tố.Dữ liệu vào: gồm 1 dòng chứa số nDữ liêu ra: gồm 2 dòng:+ Dòng 1 ghi thông báo: ‘Các số nguyên tố nhỏ hơn bằng n thoả mãn yêucầu là:’+ Dòng 2 hiển thị các só tìm được, mỗi số cách nhau 3 ký tự trắng.Ví dụ:DL...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

6 tháng 8 2023

Mình sẽ tạm hiểu đề này là viết chương trình in ra các số nguyên tố lớn hơn hoặc bằng n nha

#include <bits/stdc++.h>

using namespace std;

int n,m,i;

//chuongtrinhcon

bool ktnt(int n)

{

if (n<2) return false;

for (int i=2; i*i<=n; i++)

if (n%i==0) return false;

return true;

}

int main()

{

cin>>n;

cout<<"Cac so nguyen to nho hon bang n thoa man yeu cau la"<<endl;

for (int i=2; i<=n; i++)

if (ktnt(i)) cout<<i<<" ";

}

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP