Вопрос по информатике:
Напишите функцию которая возвращает: наибольшую цифру в десятичном представлении целого числа n>0;
2)Корень уравнения ax+b=0; P.S исправляю хвосты))))
- 11.06.2015 01:04
- Информатика
- remove_red_eye 13122
- thumb_up 25
Ответы и объяснения 1
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;
- 12.06.2015 03:45
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.