|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.01.2008, 20:41 | #1 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
#Delphi задача на сумму цифр числа
Здравствуйте, подскажите пожалуйста алгоритм решения такой задачи:
Дано натуральное число, найти сумму его первой и последней цифры. Спасибо! |
09.01.2008, 20:44 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Переводим число в строковый вид, берем первый и последний символ, преобразуем в интеджер и складываем.
|
09.01.2008, 21:42 | #3 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
а как указать что беру первый или последний символ?
|
09.01.2008, 21:53 | #4 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Stroka[1] и Stroka[Length(Stroka)]
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
09.01.2008, 21:56 | #5 |
Пользователь
Регистрация: 09.01.2008
Сообщений: 30
|
var
s:string; k:integer; begin readln(s); k:=strtoint(s[1])+strtoint(s[length(s)]); writeln(k); end. |
09.01.2008, 22:33 | #6 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
To Doom4eg
Если вы хотите блеснуть безукоризненным знанием программирования, вам прямой путь на сертификационные экзамены в Майкрософт. У нас здесь несколько другая цель - помочь людям разобраться в вопросе, а не "совать" готовый код, являющийся для них "китайской грамотой". Надеюсь на ваше понимание этого нюанса в дальнейшем. |
09.01.2008, 22:47 | #7 | |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Приведу пару ссылок, чтобы небыло вопросов что значит то или иное слово в коде программы:
http://www.delphibasics.ru/String.php http://www.delphibasics.ru/Integer.php http://www.delphibasics.ru/ReadLn.php http://www.delphibasics.ru/StrToInt.php http://www.delphibasics.ru/WriteLn.php Кстати что значит "не гарантируется" в этом определениии? Цитата:
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
|
09.01.2008, 22:58 | #8 | |
Старожил
Регистрация: 25.02.2007
Сообщений: 4,160
|
Цитата:
выделяем посл цифру путем нахождения остатка от деления на 10 первую - целой частью деления на порядок числа суммируем |
|
09.01.2008, 23:04 | #9 |
Пользователь
Регистрация: 09.01.2008
Сообщений: 30
|
Хмммм.........
|
10.01.2008, 09:11 | #10 |
Форумчанин
Регистрация: 07.08.2007
Сообщений: 154
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сумма цифр введенного трехзначного числа. Дельфи | by -ORTODOX- | Помощь студентам | 20 | 02.02.2011 14:21 |
for SAS888 please help! макрос выделения цифр жирным шрифтом прописывает числа без нулей после запятой | Dorvir | Microsoft Office Excel | 1 | 03.03.2008 22:39 |
Подсчитать сумму цифр числа введеного с клавиатуры. Prolog | Дурин | Помощь студентам | 3 | 10.01.2008 16:29 |
Задача на сумму к оплате. | caterva | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 12.06.2007 14:12 |
Найти количество различных цифр данного натурального числа. | stalker | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 22.05.2007 17:45 |