Составить программу вывода самой большой цифры в записи данного числа

@stranny · Регистрация: 01.10.2017

Author24 — интернет-сервис помощи студентам

Составить программу вывода самой большой цифры в записи данного числа.

@D1973 · 01.10.2017, 17:52

Составил, получилось 8... stranny, Вас устроило?

@Puporev · 01.10.2017, 18:03

Сообщение от D1973

получилось 8.

А у меня 9...

@D1973 · 01.10.2017, 18:38

Не по теме:

Puporev, у Вас другое число попалось :D

@Joy · 03.10.2017, 06:59

для целого числа как-то так:

Delphi

program Project1;
uses Math;
var
  n:int64;
  j:integer;
begin
  write('n=');readln(n);
  n:=abs(n);
  j:=0;
  while n<>0 do begin
    j:=max(n mod 10,j);
    n:=n div 10;
  end;
  writeln(j);
  readln;
end.

@D1973 · 03.10.2017, 07:29

Не по теме:

Блин, постоянно по существование этого Max() забываю... :-|

@stranny 0 / 0 / 0 Регистрация: 01.10.2017 Сообщений: 2
		1
	Составить программу вывода самой большой цифры в записи данного числа 01.10.2017, 17:11. Показов 1609. Ответов 5 Метки нет (Все метки) Составить программу вывода самой большой цифры в записи данного числа. 0

@D1973 Модератор 9459 / 6212 / 2420 Регистрация: 21.01.2014 Сообщений: 26,487 Записей в блоге: 3
	01.10.2017, 17:52	2
	Составил, получилось 8... stranny, Вас устроило? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.10.2017, 18:03	3
	Сообщение от D1973 получилось 8. А у меня 9... 0

@D1973
	01.10.2017, 18:38 #4
	Не по теме: Puporev, у Вас другое число попалось :D 0

@D1973
	03.10.2017, 07:29 Составить программу вывода самой большой цифры в записи данного числа #6
	Не по теме: Блин, постоянно по существование этого Max() забываю... :-\| 0