Вопрос по информатике:
Дано целое число, состоящее из разных цифр. Определить, какая из цифр заданного числа больше, т. е. найти наибольшую цифру числа.
ЧЕРЕЗ ПАСКАЛЬ!!!!
Пожаловаться
- 08.09.2016 02:00
- Информатика
- remove_red_eye 11953
- thumb_up 31
Ответы и объяснения 2
Var num, Mnum:integer;
begin
Mnum := 0;
readln(num);
while num 0 do
begin
if abs(num mod 10) > Mnun then
Mnum := abs(num mod 10);num := num div 10;
end;
writeln(Mnum);
end.
begin
Mnum := 0;
readln(num);
while num 0 do
begin
if abs(num mod 10) > Mnun then
Mnum := abs(num mod 10);num := num div 10;
end;
writeln(Mnum);
end.
Пожаловаться
- 09.09.2016 09:17
- thumb_up 19
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger; n.ToString.Max.Println
end.
Пример
1507163
7
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger; n.ToString.Max.Println
end.
Пример
1507163
7
Пожаловаться
- 01.01.1970 00:00
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы