👤
REMUSJERCAZE
a fost răspuns

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.

Răspuns :

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





Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!


Ze Lesson: Alte intrebari