Напишите функцию которая возвращает: наибольшую цифру в десятичном представлении целого числа n больше 0; 2)Корень уравнения ax+b=0; P.S исправляю хвосты))))
Напишите функцию которая возвращает: наибольшую цифру в десятичном представлении целого числа n>0;
2)Корень уравнения ax+b=0; P.S исправляю хвосты))))
Гость
Ответ(ы) на вопрос:
Гость1)
function numb(n:integer):integer;
var
n,ch,st,max:integer;
begin
st:=1;
max:=-1;
ch:=n mod 10;
n:=n div 10;
while(n>0)do
begin
ch:=ch+(n mod 10)*st;
n:=n div 10;
st:=st*2;
end;
while(ch>0)do
begin
if(ch mod 10>max)then
max:=ch mod 10;
ch:=ch div 10;
end;
numb:=max;
end;
2)
function yravn(a,b:integer):integer;
begin
yravn:=-b div a;
end;
Не нашли ответ?
Похожие вопросы