|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Нужна помощь в написании кода
Поставлена такая задача:
Найдите все трехзначные числа, сумма цифр которых равна заданному числу n. Помогите, пожалуйста. В Delphi не очень разбираюсь, а задачу нужно выполнить. Заранее благодарен. |
#2
|
||||
|
||||
Ну я так думаю нужно пробежаться по всем числам в массиве, по пути превавщая число в строку, проверить количество символов в строке и сумму символов (превращенных в цифру) в строке...если параметры совпадают, то скопировать в другой массив...
Код:
var str : string; n : integer; mass_ array of integer; begin for i := 0 to length(Mass)-1 do begin//от начала до конца массива Mass[i] := IntToStr(str);//приравниваем элемент массива переменной if length(str)=3 then//если длина строки 3 if StrToInt(str[0])+StrToInt(str[1])+StrToInt(str[2])=n then//если сумма n mass_ := Copy(mass, i, 1);//функция копировать end; end; как то так, писал навскидку... В начале был Бит, потом Байт и только потом появилось Слово... Последний раз редактировалось Admin, 19.10.2009 в 10:41. |