Задача на цифры числа

[Siluet]

Вводится n чисел. Признаком конца ввода является цифра 0.
1) определить есть ли центральная цифра в числе и вывести ее на экран.
2) найти максимум среди четных цифр числа.
3)подсчитать количество чисел, в которых больше чем один ноль.
Помогите пожалуйста. Горюююю

[Stilet]

Помогите пожалуйста. Горюююю

Показывай искры... тьфу. тоесть наработки... )

определить есть ли центральная цифра в числе

Как это? четно ли колво цифр в числе что ли?

[Siluet]

наработок нету я ща на паре. Сижу с телефона.
Насчет первой задачи (пример: число 12345 должно вывести 3)

[Stilet]

Насчет первой задачи

Мда... Халява хвосты спасает..
Ладно, вот пример:

var i:integer;s:string;
begin
 i:=12345;
 str(i,s);
 if length(s) mod 2<>0 then write(s[length(s) div 2+1])
 else write('no');
end.

[Siluet]

Спасип... Ток еще надо обработку чисел в процедуре сделать. Замутишь?

[Stilet]

Замутишь?

Сам. Методу поштудируй.

[Siluet]

Ну.. Я на паре, еще около 20 минут осталось.. Пожалуйста