Даю в форме EXEL
Заранее извиняюсь за оформление так как не знаю какое требование к оформлению и какие данные можно менять в таблице на условие пользователя, так что надеюсь это поможет разобраться самому.
Очень легко 2метра за 1сек.
Var n: longint;
k: integer;
begin
k:=0;
write('Введите число: ');
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,' нечетных цифр');
readln;
<span>end.</span>
Var s: string;
begin
s:= 'гонка';
writeln(s);
s[3] := 'р';
writeln(s);
end.