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.

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

В первой нужно, во-первых, написать, чему равно s до цикла, а во-вторых, исправить первую строчку в цикле на s := s + d.
Во второй задаче можно воспользоваться операторами div и mod, которые дают соответственно частное и остаток при делении.

спасибо, первая получилась

а со второй так ничего и не получается(((

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

так не смогла, а можно так
но только программа не всегда верный ответ дает, посмотрите пожалуйста)

По второй - вы проверяете на нечетность не цифры, а само промежуточное число.

точно, спасибо, а если так