Здравствуйте. Помогите пожалуйста с программой.
Написать и протестировать функцию, которая по заданному натуральному числу определяет количество цифр в нем и сумму цифр на нечетных местах.
Функции знаю не очень, вот что у меня получилось. Помогите пожалуйста исправить. При компиляции выдает Error 113: error in statement в подчеркнутой строке.
Код:
uses crt;
function kolcifr(n:integer):integer;{Функция количества цифр в числе}
var k:integer;
begin
k:=0;
while n<>0 do
begin
k:=k+1;
n:=n div 10;
kolcifr:=k;
end;
function sumcifr(n:integer):integer;{Функция суммы цифр на нечетных местах}
var s:integer;
i:integer;
begin
s:=0;
for i:=1 to kolcifr(n) do
if i mod 2 = 1 then
begin
s:=s+i;
end;
sumcifr:=s;
end;
begin
clrscr;
write('Vvedite chislo: ');
readln(n);
writeln('Kolichestvo cifr v chisle = ',kolcifr(n));
writeln('Summa cifr na nechetnih mestah = ',sumcifr(n));
readln;
end.
Предупреждение: |
Ставьте пробелы после знаков препинания. Модератор |