Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N - Turbo Pascal

Формулировка задачи:

Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N. Что значит десятичная запись, как это записать я не знаю. Подскажите пожалуйста как записать на Паскале. Добавлено через 9 минут Вот я решила для натурального числа, а что значит десятичная запись не знаю, как записать это в паскале?.Подскажите пожалуйста.
program nechetnie_chisla;
var
  n: longint;
  k: byte;
begin
  k:=0;
  write('Введите число n: ');
  readln(n);
  while n>0 do
  begin
    if n mod 10 mod 2<>0 then k:=k+1;
    n:=n div 10;
  end;
  writeln('В числе  ',k,' нечетных цифр');
  
end.

Код к задаче: «Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N - Turbo Pascal»

textual
uses crt;
function StrCopy(str:string;start,stop:integer):string;
var i:integer;
    s:string;
begin
s:='';
for i:=start to stop do
s:=s+str[i];
StrCopy:=s
end;
var st:string;
    n,k:integer;
begin
clrscr;
writeln('Введите строку');
readln(st);
repeat
writeln('Введите номер начала и конца копирования 0<n<k<=',length(st));
readln(n,k);
until(n>0)and(k>n)and(k<=length(st));
write(StrCopy(st,n,k));
readln
end.

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ