1. задана арифметическая прогрессия -3,5;-3,1... Сколько чисел нужно сложить, чтобы сумма стала положительна.
2.Найти количество нечетных цифр во введенном натуральном числе.
По первой есть наброски, но не работает
program zadasha;
var s,d:real; k:integer;
begin
k:=0;
d:=0.4;
while s<=0 do begin
s:=-3.5+d;
k:=k+1;
end;
writeln('k=',k);
readln;
end.

А по второй вобще никаких мыслей, если б было известно сколько цифр в числе...

Например, если дано число n, то его последняя цифра - это n1=n mod 10, предпоследняя будет n2 = (n-n1)/10 mod 10 и т.д.