Функции. Pascal

[tutis]

Здравствуйте! Помогите пожалуйста написать программу на Pascal. Написать и протестировать функцию, которая по заданному натуральному числу определяет количество цифр в нем и сумму цифр на нечетных местах.

[Chebattler]

фунуцию сам сделаешь, а алгоритм примерно такой:
chislo:string;
readln(chislo);
m:=leangth(chislo);
writeln('kol-vo cifr v chisle =',m);
for i:=1 to m do
if i mod 2 <> 0 then sum:=sum+strtoint(chislo[i]);
writeln('summa 4isel, na ne4etnix mestax =',sum);
вот так вроде, не проверял, но принцип таков

[tutis]

[QUOTE=Chebattler;714753]фунуцию сам сделаешь, а алгоритм примерно такой:
chislo:string;
readln(chislo);
QUOTE]
Спасибо, но мне нужно число представлять не как строку, а как само число, т.е chislo:integer.

[tutis]

Сообщение от Chebattler

фунуцию сам сделаешь, а алгоритм примерно такой:
chislo:string;
readln(chislo);

Спасибо, но мне нужно число представлять не как строку, а как само число, т.е chislo:integer.

[Pein95]

ну тода используй оператор case для определения сколько цыфр в числе а потом div и mod тебе в помощь

[tutis]

Сообщение от Pein95

ну тода используй оператор case для определения сколько цыфр в числе а потом div и mod тебе в помощь

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

[tutis]

Вот как я посчитала количесво цифр.

uses crt;
var N:longint;
var k:integer;
begin
clrscr;
write('N= ');
readln(N);
k:=0;
while N<>0 do
begin
k:=k+1;
N:=N div 10;
end;
writeln('Kolichestvo cifr v chisle = ',k);
readln;
end.

[Pein95]

запишы в масив ети же цыфры и ищи суму тех у которых не четный индекс)

[Chebattler]

почему нельзя моим способом?
главное же результат..
А там оно внутренне переводит в строку, для подсчёта кол-ва знаков и потом переводит в норм число для подсчёта суммы...Но если в задании сказано использовать integer , то понятно.

[Pein95]

вот странно почему дают такие тупые задания) я в вузе ещо не учюсь но мне уже ето всё не нравитса....