Задача к Лабораторной Работе!, Десятичная запись числа Опции

[Константин]

Помогите решить эту задачу или если можно, то напишите текст программы! Её нужно решить спомощью ВЛОЖЕННЫХ (СЛОЖЕННЫХ) ЦЫКЛОВ!!! Очень нуждаюсь в помощи!


Из n введенных с клавиатуры целых чисел сложить те у которых сумма первых двух цифр равна сумме последних двух цифр.





Заранее....БОЛЬШОЕ СПАСИБО!!!!!!

[Kostya_guap]

Ну кто нибудь мне сможет помочь!!!??

[Lapp]

Ну кто нибудь мне сможет помочь!!!??

К сожалению, твой код не годится.. Но уже хорошо, что попытался .
Давай попробуем вместе написать процедурку для разложения числа на цифры..

Для цифрового (десятичного) представления заведем массив целых чисел:

var
  Dig : array [1..MaxDig] of integer;

А потом сделаем цикл, в котором будем искать остаток от деления исходного числа на 10 - это и есть младшая цифра. Этот остаток закладываем по порядку в наш массив, считая попутно количество цифр. На каждом шаге делаем переприсваивание: в исходное число кладем результат его деления нацело на 10. И так до тех пор, пока оно не станет равно нулю.

Остальное - в шляпе.
Сумма двух первых цифр есть Dig[1]+Dig[2]
Сумма последних: Dig[k-1]+Dig[k]
Если они равны - исходное число тебе подходит.

Спрашивай, что неясно.

PS
Программный текст заключай в теги: выдели его блоком, потом выбери в меню CODE нужную строку (Паскаль)