) Viết chương trình tìm độ dày và độ cao của số tự nhiên N- Khái niệm: Độ dày của số nguyên N là số lượng chữ số của số N. Độ cao của số nguyên N là tổng các chữ số của số N.- Yêu cầu: Viết...

LT

Linh Trúc

2 tháng 8 2022

) Viết chương trình tìm độ dày và độ cao của số tự nhiên N- Khái niệm:+ Độ dày của số nguyên N là số lượng chữ số của số N.+ Độ cao của số nguyên N là tổng các chữ số của số N.- Yêu cầu: Viết chương trình tìm độ dày và độ cao của số tự nhiên N- Dữ liệu vào: Nhập từ bàn phím số tự nhiên N.- Dữ liệu ra: Xuất ra màn hình độ dày và độ cao của N.Ví dụ:Nhập từ bàn phímXuất ra màn...

Đọc tiếp

#Tin học lớp 8

1

NL

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

3 tháng 8 2022

uses crt;

var st:string;

i,t,x,y:integer;

begin

clrscr;

readln(st);

writeln(length(st));

t:=0;

for i:=1 to length(st) do

begin

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

t:=t+x;

end;

writeln(t);

readln;

end.

Đúng(0)

NT

Nguyễn Thị Tươi

6 tháng 1 2023

Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.

Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.

Giup mình với ạ! mình cảm ơn!

#Tin học lớp 11

0

PD

Phan Đức Duy

10 tháng 1 2021

Viết chương trình nhập vào một số nguyên N và thực hiện:

a. Số nguyên dương N có bao nhiêu chữ số?

b. Tính tổng các chữ số của N

c. In ra chữ số lớn nhất của N

*Yêu cầu: N là một số nguyên dương(N bé hơn hoặc bằng 10⁹)

#Tin học lớp 8

3

H

hacker

10 tháng 1 2021

uses crt;var n: longint; chrn: string; valn,sum,max,i,preperror: byte;begin write('Nhap so can kiem tra: '); readln(n); str(n,chrn); for i:=1 to length(chrn) do begin val(chrn[i],valn,preperror); sum:=sum+valn; if max<valn then max:=valn; valn:=0 end; writeln('Ket qua: '); writeln(length(chrn)); writeln(sum); write(max); readln;end.uses crt;var n: longint; chrn: string; valn,sum,max,i,preperror: byte;begin write('Nhap so can kiem tra: '); readln(n); str(n,chrn); for i:=1 to length(chrn) do begin val(chrn[i],valn,preperror); sum:=sum+valn; if max<valn then max:=valn; valn:=0 end; writeln('Ket qua: '); writeln(length(chrn)); writeln(sum); write(max); readln;end.

Đúng(0)

ML

Minh Lệ

10 tháng 1 2021

Program HOC24;

var N:longint;

max,tg,t,d: integer;

Begin

write('Nhap N : '); readln(N);

max:=0;

while n<>0 do

begin

tg:=n mod 10;

d:=d+1;

t:=t+tg;

if tg>max then max:=tg;

n:=n div 10;

end;

writeln('So nguyen N co ',d,' chu so');

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

write('Chu so lon nhat cua N la :',max);

readln

end.

Đúng(2)

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 ạ

#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

Đúng(0)

KT

Kim Thoa Le Thi

6 tháng 4 2023

Viết chương trình tìm Max, Min, Trung bình của độ lệch cùng độ lệch của nó (TB) so với Max, Min của một dãy số gồm `n` số nguyên, Với `n` là số tự nhiên được nhập từ bàn phìm

Sử dụng biến mảng để viết chương trình Pascal

#Tin học lớp 8

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)

TV

TKT VN

29 tháng 8 2021

Câu 1: Viết chương trình nhập vào số tự nhiên N (0<N<10000). In ra màn hình các yêu cầu sau:
Các ước số là số tự nhiên của N.
Các ước số là số nguyên tố của N, nếu không có ước số nguyên tố xuất ra số 0.

#Tin học lớp 8

1

NA

nguyễn an phát

1 tháng 9 2021

program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
clrscr;
repeat
write('nhap n:');readln(n);
if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
until (n>0)and(n<10000);
writeln('cac uoc so la so tu nhien cua ',n,' la:');
for i:=1 to n do
if n mod i=0 then write(i,' ');
writeln;
dem:=0;
for i:=2 to n do
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then inc(d);
if (d=0)and(n mod i=0)then inc(dem);
end;
if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then inc(d);
if (d=0)and(n mod i=0)then write(i,' ');
end;
if dem=0 then write(0);
readln;
end.

Đúng(0)

CP

Cao Phạm Hà Anh

17 tháng 8 2023

BÀI 2. ĐỘ CAO CỦA DÃY SỐ DOCAO13.PASTa gọi độ cao của một số nguyên dương K là tổng giá trị các chữ số của K.Ví dụ: số 25362 có độ cao là 18. Cho dãy số nguyên dương A gồm N phần tử a 1 ,a 2 , ..., a N .(1 ≤ N ≤ 1000, 1 ≤ i ≤ N, 0 < a i ≤ 2147483647)Yêu cầu: Hãy tính độ cao của các phần tử trong dãy số A.Dữ liệu vào: Ghi trong file văn bản DOCAO13.INP có cấu trúc như sau:- Dòng 1: Ghi số nguyên dương N, là số...

Đọc tiếp

#Tin học lớp 8

1

NL

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

18 tháng 8 2023

const fi='docao13.inp';

fo='docao13.out';

var f1,f2:text;

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

i,n:integer;

//chuongtrinhcon

function kq(x:integer):integer;

var t,k:integer;

begin

t:=0;

while (x>0) do

begin

k:=x mod 10;

t:=t+k;

x:=x div 10;

end;

kq:=t;

end;

//chuongtrinhchinh

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

for i:=1 to n do

write(f2,kq(a[i]):4);

close(f1);

close(f2);

end.

Đúng(1)

KH

Kamato Heiji

16 tháng 3 2021

1. Viết chương trình tính tổng các số nguyên tố từ 1 đến 100 2.Số nguyên dương P được gọi là ước thực sự của số nguyên n nếu n chia hết cho P và P khác 1 và khadc chính số n . Viết thuật toán và chương trình nhập số tự nhiên n và tính tổng của nó

#Tin học lớp 8

3

NL

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

16 tháng 3 2021

1:

uses crt;

var i,j,t,kt:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

if i>1 then

begin

kt:=0;

for j:=2 to i-1 do

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

if kt=0 then t:=t+i;

end;

writeln(t);

readln;

end.

Đúng(1)

NL

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

16 tháng 3 2021

Câu 2:

*Viết chương trình:

uses crt;

var n,p,t:integer;

begin

clrscr;

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

t:=0;

for p:=2 to n-1 do

if n mod p=0 then t:=t+p;

writeln('Tong cac uoc that su cua ',n,' la: ',t);

readln;

end.

Đúng(1)

VP

Vàng Phan Thanh

4 tháng 4 2023

Viết chương trình nhập vào dãy số nguyên nhân phần tử với những được nhập vào bàn phím ( tối đa 200 phần tử) Tính tổng của các phần tử đã nhập và độ dày của các phần tử ( mỗi phần tử có sự độ dày 3cm).In ra màn hình giá trị tổng và độ dày.

#Tin học lớp 8

0

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)

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