nhập 1 số tự nhiên n với n(0<=n). hãy cho biết số chữ số của số n vừa nhập
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.
Những câu hỏi liên quan
ML
26 tháng 2 2020
Program hotrotinhoc;
var i,n,s,k,max,n1: longint;
begin
write('Nhap N='); readln(n);
max:=0; n1:=n;
while n<>0 do
begin
k:=n mod 10;
s:=s*10+k;
n:=n div 10;
if k>max then max:=k;
end;
writeln('Chu so lon nhat cua so tu nhien vua nhap la :',max);
If s=n1 then write('La so doi xung') else write('Khong phai so doi
xung');
readln
end.
26 tháng 2 2020
uses crt;
var n,i,d,x,ln,kt:word;
st:string;
a:array[1..100]of integer;
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);
ln:=0;
for i:=1 to d do
if ln<a[i] then ln:=a[i];
writeln('chu so lon nhat trong so ',n,' la: ',ln);
{-----------------------kiem-tra-doi-xung----------------------------}
kt:=0;
for i:=1 to d do
if a[i]<>a[d+1-i] then kt:=1;
if kt=0 then writeln('day la so doi xung')
else writeln('day khong la so doi xung');
readln;
end.
6 tháng 8 2023
uses crt;
var i,n,m,j,kt:integer;
begin
clrscr;
readln(n,m);
for i:=n to m do
begin
kt:=0;
if (i>2) then begin
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
2 tháng 4 2022
uses crt;
var n:string;
i,ln,nn,t,s,x,y:integer;
begin
clrscr;
readln(n);
writeln(length(n));
ln:=0;
nn:=9;
for i:=1 to length(n) do
begin
val(n[i],x,y);
if ln<x then ln:=x;
if nn>x then nn:=x;
end;
writeln(ln);
writeln(nn);
t:=0;
s:=1;
for i:=1 to length(n) do
begin
val(n[i],x,y);
t:=t+x;
s:=s*x;
end;
writeln(t);
writeln(s);
readln;
end.
26 tháng 7 2021
Uses crt;
var i,n,uoc,j,tam:longint;
Begin
clrscr;
readln(n);uoc:=0;tam:=0;
for i:= 1 to n do if n mod i = 0 then inc(uoc);
if uoc = 2 then write(n,' la so nguyen to')
else for i:= 2 to n do if n mod i = 0 then
begin
tam:=0;
for j:= 1 to i do if i mod j = 0 then inc(tam);
if tam = 2 then write(i,' ');
end;
readln;
end.
Có chỗ nào sai thì bảo mình
AQ
1
KV
27 tháng 4 2023
Var array:[1..1000] of integer;
i,n:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac so vua nhap la ');
For i:=1 to n do write(a[i]:8);
Readln
End.
NB
18 tháng 4 2023
program MultiplesOfN;
var
n, i: integer;
begin
repeat
write('Nhap vao so nguyen duong n (0<n<100): ');
readln(n);
until (n > 0) and (n < 100);
writeln('Cac boi so cua ', n, ' co 4 chu so la:');
for i := 1000 to 9999 do
begin
if (i mod n = 0) then
begin
writeln(i);
end;
end;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
string n;
int d;
int main()
{
cin>>n;
d=n.length();
cout<<d;
return 0;
}
pascal mà bạn!