Bài 1: nhập n số nguyên vào bàn phím xuất ra - Dòng 1: các số n vừa nhập - Dòng 2: 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 Bài 2: nhập n số nguyên vào bàn phím và kết...

PV

Phan Vũ Nhật Huy

28 tháng 5 2020

Bài 1: nhập n số nguyên vào bàn phím xuất ra - Dòng 1: các số n vừa nhập - Dòng 2: 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 Bài 2: nhập n số nguyên vào bàn phím và kết thúc khi nhập số 0 - Dòng 1: xuất ra các số n vừa nhập - Dòng 2: tổng các số vừa nhập và xét xem tổng đó có phải là số hoàn hảo...

Đọc tiếp

#Tin học lớp 8

2

ML

Minh Lệ

28 tháng 5 2020

Bài 2:

Program HOC24;

var i,j,n: integer;

t: longint;

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

function hh(x:integer):boolean;

var i,s:integer;

begin

s:=0;

hh:=false;

for i:= 1 to x div 2 do

if x mod i = 0 then s:=s+i;

if s = x then hh:=true;

end;

begin

write('Nhap so nguyen : '); readln(n);

if n=0 then

begin

writeln(n);

write('Tong cac so vua nhap la 0 va tong do khong phai so hoan hao');

end

else

begin

a[1]:=n; i:=1;

while n<>0 do

begin

i:=i+1;

write('Nhap so nguyen : '); readln(n);

a[i]:=n;

end;

t:=0;

write('Cac so n vua nhap la : ');

for j:=1 to i do

begin

t:=t+a[j];

write(a[j],' ');

end;

writeln;

write('Tong cac so vua nhap la : ',t,' ;');

if hh(t) then write('Tong nay la so hoan hao') else write('Khong phai so hoan hao');

end;

readln

end.

Đúng(0)

ML

Minh Lệ

28 tháng 5 2020

Bài 1:

Program HOC24;

var i,n: integer;

t: longint;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

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

t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,':'); readln(a[i]);

t:=t+a[i];

end;

for i:=1 to n do if i<n then write(a[i],' ') else

if i=n then writeln(a[i]);

write('Tong cac so vua nhap la : ',t,' ;');

if nt(t) then write('Tong la so nguyen to') else write('Tong khong phai la so nguyen to');

readln

end.

Đú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)

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)

NM

Nguyễn Mỹ

5 tháng 4 2021

Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình ( làm giúp em lẹ ạ, mai e phải nộp rồi...

Đọc tiếp

#Tin học lớp 8

4

NA

nguyễn an phát

5 tháng 4 2021

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Đúng(0)

NL

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

5 tháng 4 2021

Câu 1:

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

write(a[i]:4);

readln;

end.

Đúng(0)

NT

NGuyễn Tuấn

12 tháng 12 2021

Nhập vào từ bàn phím số nguyên dương N (1<N 10') - Dòng 1: Tổng các chữ số của N.- Dòng 2: Số lượng các số nguyên dương, không phải là số nguyên tố nhỏ hơn N - Dòng 3: Ghi hai số 7 và K cách nhau 1 dấu cách : I10 cho tổng thu K số nguyên liên tiếp bắt đầu từ Z bằng N, trường hợp tồn tại nhiều giá trị Z, thì hiển thị màn hình kết quả có giá trị Z nhỏ nhất- Dòng 4: Ghi số X là số lượng các chữ số cần...

Đọc tiếp

#Tin học lớp 9

1

NL

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

12 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t,dem,j;

int main()

{

cin>>n;

x=n;

t=0;

while (n>0)

{

t=t+n%10;

n=n/10;

}

cout<<t;

dem=0;

for (i=2; i<=x; i++)

{

bool kt=true;

for (j=2; j*j<=i; j++)

if (i%j==0) kt=false;

if (kt==true) dem++;

}

cout<<dem;

return 0;

}

Đúng(0)

NY

Nguyễn Yến Trang

1 tháng 3 2022

Bài tập 1: Kiểm tra số x nhập vào từ bàn phím có phải là số nguyên tố haykhông ?VD: nhập x• x-5 KQ: 5 là số nguyên tố• x=4 KQ: 4 không phải là số nguyên tốBài tập 2: Kiểm tra số n nhập vào từ bàn phím có phải là số đối xứng không ?(Giới hạn 4 con số)VD: nhập x =• x- 1221 KQ: 12321 là số đối xứng• x- 3712 KQ: 3712 không phải là số đối...

Đọc tiếp

#Tin học lớp 8

1

NL

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

1 tháng 3 2022

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

cin>>n;

if (n>1)

{

kt=true;

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

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

if (kt==true) cout<<n<<" la so nguyen to";

else cout<<n<<" khong la so nguyen to";

}

else cout<<n<<" khong la so nguyen to";

return 0;

}

Đúng(0)

TH

Trần Hà Thư

6 tháng 5 2021

Viết chương trình nhập vào từ 1 bàn phím 1 dãy n số nguyên( n nhập từ bàn phím). Sau đó hiển thị ra màn hình các số chẵn của dãy số vừa nhập.

#Tin học lớp 8

2

NL

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

7 tháng 5 2021

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Đúng(1)

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
n,i:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.