Câu 1 : viết ct nhập vào 1 số n, kt xem n có phải là số nguyên tố k Câu 2: viết ct tính tổng các chữ số của m...

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.

Mua vip

DV

Đinh Văn Tuấn

12 tháng 12 2019

Câu 1 : viết ct nhập vào 1 số n, kt xem n có phải là số nguyên tố k

Câu 2: viết ct tính tổng các chữ số của một số có 5 chữ số

vd

input 73645

output 25

#Hỏi cộng đồng OLM #Tin học lớp 8

3

BA

Bùi Anh Tuấn

12 tháng 12 2019

Hỏi đáp Tin học

BA

Bùi Anh Tuấn

12 tháng 12 2019

Hỏi đáp Tin học

Các câu hỏi dưới đây có thể giống với câu hỏi trên

TH

trần hoàng

6 tháng 4 2022

viết chương trình nhập vào một số nguyên dương n . Rồi xuất ra màn hình các yêu cầu sau:

a, Số n có bao nhiêu chữ só.

b, Tổng các chữ số của n.

c, Số n có phải là số nguyên tố không.

d, Tổng các chữ số của nó có phải là số nguyên tố không.

mn giúp em vs ạ

#Hỏi cộng đồng OLM #Tin học lớp 8

1

LT

Lê Trần Kim Hoàng

7 tháng 2 2023

program ct;
uses crt;
var dem,n,s,max,t:longint;
begin
writeln('nhap n:');readln(n);
while n>0 do begin
s:=n mod 10;
t:=t+s;
if max<s then max:=s;
dem:=dem+1;
n:=n div 10;
end;
writeln('tong la',t,',','co',' ',dem,' ','chu so',',','chu so lon nhat la:',max);
readln
end.

bạn xem lại nha mik làm đây nhưng k bt đk

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...

#Hỏi cộng đồng OLM #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;

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.

YN

Yến Nhi Nhi

3 tháng 1 2023

Em hãy xác định input , output mô tả thuật toán và viết chương trình cho các bài toán sau : Bài1: nhập vào một số nguyên xem có chia hết cho 5 hay Bài 2: nhập vào số tự nhiên gồm 4 chữ số in các chữ số ra màn hình

#Hỏi cộng đồng OLM #Tin học lớp 8

1

NL

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

4 tháng 1 2023

Bài 1:

Input: Số n

Output: Kiểm tra xem n có chia hết cho 5 ko

Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: Nếu n chia hết cho 5 thì xuất ra có

không thì không

Bước 3: Kết thúc

Viết ct:

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n mod 5=0 then write('yes')

else write('no');

readln;

end.

NL

NGUYỄN LÊ XUÂN THỊNH

22 tháng 2 2023

(Viết chương trình Pascal sử dụng câu lệnh while...do)

1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.

2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.

#Hỏi cộng đồng OLM #Tin học lớp 8

2

KV

Kiều Vũ Linh

23 tháng 2 2023

Bài 1

Var s,i:integer;

tb:real;

Begin

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

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

KV

Kiều Vũ Linh

23 tháng 2 2023

Bài 2

Var i,n,souoc:integer;

Begin

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

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

HQ

Huỳnh Quốc Việt

21 tháng 11 2019

1.Viết CT tính kết quả chia lấy phần nguyên, chia lấy phần dư của hai số a,b 2.Viết CT hoán đổi hai số 3.Viết CT tính tổng tiền với số lượng đơn giá nhập từ bàn phím và tiền phí là 50000VNĐ 4.Viết CT nhập hai số a,b tính tổng hai số vừa nhập 5.Viết CT tính chu vi HCN 6.Viết CT tính chu vi hình vuông 7.Viết CT tính thương hai số 8.Viết CT so sánh hai số 9.Viết CT VD3 (SGK) trang 48 10.Bài...

#Hỏi cộng đồng OLM #Tin học lớp 8

2

NL

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

21 tháng 11 2019

1:

uses crt;

var a,b,du,thuong:integer;

begin

clrscr;

write('nhap so bi chia:'); readln(a);

repeat

write('nhap so chia:'); readln(b);

if b=0 then writeln('ban da nhap sai,yeu cau ban nhap lai');

until b<>0;

du:=a mod b;

thuong:=a div b;

writeln('so du cua phep chia ',a,' cho ',b,' la: ',du);

writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong);

readln;

end.

2:

uses crt;

var a,b,tam:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

writeln('gia tri luc dau cua a la: ',a);

writeln('gia tri luc dau cua b la: ',b);

tam:=a;

a:=b;

b:=tam;

writeln('gia tri sau khi doi cua a la: ',a);

writeln('gia tri sau khi doi cua b la: ',b);

readln;

end.

3:

uses crt;

var a:integer;

t:longint;

begin

clrscr;

write('nhap so luong don gia: '); readln(a);

t:=a*50000;

writeln('tong so tien la: ',t);

readln;

end.

NL

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

21 tháng 11 2019

4:

uses crt;

var a,b,t:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

t:=a+b;

writeln('tong cua hai so ',a,' va ',b,' la: ',t);

readln;

end.

5:

uses crt;

var a,b,cv:integer;

begin

clrscr;

repeat

write('nhap chieu dai:'); readln(a);

write('nhap chieu rong:'); readln(b);

if (a<=b) or (a<=0) or (b<=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');

until (a>b) and (a>0) and (b>0);

cv:=a*b;

writeln('chu vi hinh chu nhat la: ',cv);

readln;

end.

6:

uses crt;

var a,cv:integer;

begin

clrscr;

repeat

write('nhap canh hinh vuong:'); readln(a);

if a<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');

until a>0;

cv:=a*4;

writeln('chu vi hinh vuong co canh ',a,'cm la: ',cv);

readln;

end.

7:

uses crt;

var a,b,thuong:integer;

begin

clrscr;

write('nhap so bi chia: '); readln(a);

repeat

write('nhap so chia: '); readln(b);

if b=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');

until b<>0;

thuong:=a div b;

writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong);

readln;

end.

8:

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a<b then writeln(a,' be hon ',b);

if a>b then writeln(a,' lon hon ',b);

if a=b then writeln(a,' bang ',b);

readln;

end.

TD

Trần Đăng Trọng

9 tháng 3 2023

Viết CT nhập vào N số nguyên từ bàn phím. Tính tích các chữ số âm trong N số vừa nhập.In kết quả ra màn hình

#Hỏi cộng đồng OLM #Tin học lớp 8

1

NL

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

9 tháng 3 2023

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,x,s=1,i;

cin>>n;

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

{

cin>>x;

if (x<0) s=s*x;

}

cout<<s;

return 0;

}

TH

tho hit co

18 tháng 4 2023 - olm

Câu 1: Viết chương trình nhập vào số nguyên n có 2 chữ số (Nếu nhập sai thì nhập lại).

a) In ra các số chẵn từ 0 đến n

b) In ra các số lẽ từ 1 đến n

c) Tính tổng các số chẵn từ 0 đến n

d) Tính tổng các số lẻ từ 1 đến n

#Hỏi cộng đồng OLM #Tin học lớp 8

0

NP

Nguyễn Phan Bảo Tin

3 tháng 5 2021

Viết CT a) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số b) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số nguyên nhỏ nhất trong dãy số Mn giúp em vs Mà 2 câu này riêng biệt nên mong mn đừng viết chung 1 CT

#Hỏi cộng đồng OLM #Tin học lớp 8

2

NL

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

4 tháng 5 2021

a)

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do

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

writeln(max);

readln;

end.

NL

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

4 tháng 5 2021

b)

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do

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

writeln(min);

readln;

end.

LH

Lê Huỳnh Nhân

26 tháng 2 2023

1)viết chương trình xuất ra các bội số của B trong phạm vị từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím

2) nhập số nguyên n, viết chương trình xem số n có phải là số nguyên tố không

3)viết chương trình kiểm tra C có phải số hoàn hảo hay không

#Hỏi cộng đồng OLM #Tin học lớp 8

1

NL

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

28 tháng 2 2023

2:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,kt=0;

cin>>n;

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

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

if (kt==0) cout<<"YES";

else cout<<"NO";

}