Những câu hỏi liên quan
Bài 1: Viết chương trình nhập 1 số nguyên dương n có 3 chữ số.Hãy thông báo ra màn hình tổng các chữ số của nó. Bài 2: giống bài trên nhưng là 5 chữ số. Giúp mình với ạ, mình cần gấp :
Bài 1:
uses crt;
var n,t,i,d,x:integer;
st:string;
begin
clrscr;
readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x);
t:=t+x;
end;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
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 ạ
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
Bình luận (0)
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!
nhập vào 1 số nguyên dương n. Tính tổng các giai thừa của n. ai giúp với ạ
Nếu n=0 hoặc n=1 thì ta có kết quả là 1.Nếu n>1 thì ta sẽ dùng công thức truy hồi để tính (n-1)! rồi sau đó nhân với n.
Đúng 0
Bình luận (0)
Với mọi n nguyên dương, tìm chữ số tận cùng của biểu thức: 3^(n+2)-2^(n+2)+3^(n)-2^(n)
\(3^{n+2}+3^n-\left(2^{n+2}+2^n\right)=3^n\left(3^2+1\right)-2^n\left(2^2+1\right)\)
\(=3^n.10-2^n.5\)
n nguyên dương \(\Rightarrow2^n\) chẵn \(\Rightarrow2^n.5\) có tận cùng bằng 0
Vậy giá trị biểu thức trên có tận cùng bằng 0
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Program HOC24;
var i,n,max: integer;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
i:=1; max:=-1;
while i<=n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
i:=i+1;
end;
write('So lon nhat la: ',max);
readln
end.
Đúng 1
Bình luận (0)
Giúp mình với : Cho n in N. Chứng minha, Nếu n có chữ số tận cùng là chữ số chẵn thì n và 6.n có chữ số tận cung như nhaub, Nếu n có chữ số tận cùng là chữ số lẻ khác 5 thì n4 có chữ số tận cùng là 1. Nếu n có chữ số tận cùng là chữ số chẵn khác 0 thì n4 có chữ số tận cùng bằng 6c, n5 có chữ số tận cùng như nhau
Đọc tiếp
Giúp mình với :
Cho n \(\in\) N. Chứng minh
a, Nếu n có chữ số tận cùng là chữ số chẵn thì n và 6.n có chữ số tận cung như nhau
b, Nếu n có chữ số tận cùng là chữ số lẻ khác 5 thì n4 có chữ số tận cùng là 1. Nếu n có chữ số tận cùng là chữ số chẵn khác 0 thì n4 có chữ số tận cùng bằng 6
c, n5 có chữ số tận cùng như nhau
giai thừa của n là tích cách sô tự nhiên nguyên dương bắt đầu từ 1-n vs m là số tự nhiên dương bất kỳ cho trc . nếu n=0 thì n!=1.nếu n>0 thì n!=1.2..n
yêu cầu : in ra các chữ số 0 tận cùng bên pahir n!
in ra màn hình chữ số khác 0 tận cùng bên phải n!
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 109)
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
Bình luận (0)
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
Bình luận (0)
uses crt;
var n,d,i,t,max,x:longint;
y:integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
str(n,st);
d:=length(st);
writeln('So chu so cua ',n,' la: ',d);
t:=0;
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
if max<x then max:=x;
end;
writeln('Tong cac chu so cua ',n,' la: ',t);
writeln('Chu so lon nhat cua ',n,' la: ',max);
readln;
end.
Đúng 1
Bình luận (0)