free pascal

[Риналь]

Составить алгоритм и программу,вычисления суммы ряда в соответствии с приведённым вариантом. справа от знака равенства дано для контроля математическое значение ряда 1+1/2+1/4+1/8+...+1/2^n=2
2 задание. дано n-значное целое число типа longint.Произвести с ним соответствия.Подсчитать количество нечётных цифр в числе
3задание.значения функции f1(x)=2+sin3x и f2(x)=cosx/3 определены в точках x=x0(hn)xn. определить,при каком x расстояние между f1(x) и f2(x)минимально.

[Hacker19_90]

#1

sum := 0.0;
for i := 0 to n do
    if sum <= 2.0 then
      sum := sum + 1/exp(ln(2)*i);

#2

count := 0;
while num <> 0 do
begin
    if odd(num mod 10) then Inc(count);
    num := num div 10;
end;
Writeln (count);

[Риналь]

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

#1

sum := 0.0;
for i := 0 to n do
    if sum <= 2.0 then
      sum := sum + 1/exp(ln(2)*i);

#2

count := 0;
while num <> 0 do
begin
    if odd(num mod 10) then Inc(count);
    num := num div 10;
end;
Writeln (count);

спасибо тебе большое,просто я вообще не шарю в паскале,ещё полно заданий