наименьшая цифра числа в delphi - Помощь студентам

SALOmandra · 22.04.2008, 15:39

зачет гарит, спасайте мальчики !!

Ввести натуральное число N. Какая наименьшая цифра в нем
Спасибки

Stilet · 22.04.2008, 15:47

Код:

var m,i:integer;s:string;
begin
i=1569;s:=inttostr(i);m:=strtoint(s[1]);
for i:=2 to length(s) do if strtoint(s[i])<m then m:=strtoint(s[i])
end.

Яснышко принцип?

SALOmandra · 22.04.2008, 15:57

СПАСИБКИ !!!

22.04.2008, 15:39	#1
SALOmandra Новичок Джуниор Регистрация: 22.04.2008 Сообщений: 2	наименьшая цифра числа в delphi зачет гарит, спасайте мальчики !! Ввести натуральное число N. Какая наименьшая цифра в нем Спасибки

22.04.2008, 15:47	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код: `var m,i:integer;s:string; begin i=1569;s:=inttostr(i);m:=strtoint(s[1]); for i:=2 to length(s) do if strtoint(s[i])<m then m:=strtoint(s[i]) end.` Яснышко принцип? I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Функция определить цифра или нет.	dx+	Общие вопросы Delphi	8	26.05.2008 10:59
последняя ненулевая цифра факториала	Пашка	Помощь студентам	6	04.04.2008 23:39
Delphi и простые числа	razoom	Фриланс	6	13.02.2008 14:09
Факториал числа в Delphi	Prisian	Общие вопросы Delphi	16	24.01.2008 13:23
Delphi - Случайные числа	Albenous	Помощь студентам	2	28.12.2007 22:34

22.04.2008, 15:57	#3
SALOmandra Новичок Джуниор Регистрация: 22.04.2008 Сообщений: 2	СПАСИБКИ !!!