Se citeşte de la tastatură un număr natural. Să se determine cea mai mare cifră care apare în scrierea acestuia şi numărul de apariţii ale ei.
Programul va citi de la tastatură un număr natural.
Programul va afişa pe ecran cea mai mare cifră a numărului citit şi numărul de apariţii ale ei, separate printr-un spaţiu.
andyghe97:
Ce limbaj de progamare ?
nu stiu sigur daca merge , nu l am rulat , dar e pronto ( poti sa stergi pe jos cu profa ta de info) :D
Răspunsuri la întrebare
Răspuns de
1
program cevanumar;
var x:longint;
function mare(x:longint):integer;
var max:integer;
begin
max:=x mod 10;
x:=x div 10;
while x<>0 do
begin
if max<x mod 10 then
max:=x mod 10
else
x:=x div 10;
end;
mare:=max;
end;
function nraparitii(x:longint):integer;
begin
nrparti:=0
while x<>0 do
begin
if x mod 10 =mare(x) then
nrparti:=nrparti+1;
end;
begin
write('x=');
readln(x);
write('cea mai mare cifra=',mare(x));
write(' ')
writeln('nr aparitii=',nraparitii(x));
readln;
end.
var x:longint;
function mare(x:longint):integer;
var max:integer;
begin
max:=x mod 10;
x:=x div 10;
while x<>0 do
begin
if max<x mod 10 then
max:=x mod 10
else
x:=x div 10;
end;
mare:=max;
end;
function nraparitii(x:longint):integer;
begin
nrparti:=0
while x<>0 do
begin
if x mod 10 =mare(x) then
nrparti:=nrparti+1;
end;
begin
write('x=');
readln(x);
write('cea mai mare cifra=',mare(x));
write(' ')
writeln('nr aparitii=',nraparitii(x));
readln;
end.
while x<>0 do
begin
if x mod 10 =mare(x) then
nrparti:=nrparti+1
end;
begin
if x mod 10 =mare(x) then
nrparti:=nrparti+1
end;
saracii astea nu au buton de edit la comentarii pff
while x<>0 do
begin
if x mod 10 =mare(x) then
nrparti:=nrparti+1
else
x:=x div 10;
end;
begin
if x mod 10 =mare(x) then
nrparti:=nrparti+1
else
x:=x div 10;
end;
Alte întrebări interesante
Limba română,
8 ani în urmă
Informatică,
8 ani în urmă
Istorie,
9 ani în urmă
Matematică,
9 ani în urmă
Franceza,
9 ani în urmă