циклы Опции

[mygray]

Поммогите кто чем может! Завтра задачи сдавать, а я сделал не все!

1) Дано натуральное число, получить число при прочтении его цифр справа на лево


2)расчитать значения для a, разных 2, 3, 4, 5,6 до 17

Z=3,5 t2 (КВАДРАТ) - 7t + 16
t=4a

3)дано натуральное число определить сумму квадратов его цифр

Помогите кто чем может!!!

[klem4]

3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!

?

Разложение числа на цифры

Это для 1-го, а для 3-го еще проще, переводишь число в строку (либо сразу вводи в виде строки) ну а потом в цикле

res := '';
for i := 1 to length(s) do
 res := s[i] + res;

[mygray]

на FAQ я ничё не нашёл, так что...... ссори!