Pascal подробно
с клавиатуры вводится целое положительное (может быть равно 0) число с, не превышающее 30 000. напиши программу, которая считает и выводит на экран количество нечётных цифр числа с.
напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0,d=7,an=98.a_1 = 0, d = 7, a_n = 98 a1=0,d=7,an=98.
1.
var C,S:integer;
Begin
S:=0;
read(C);
While (C > 0) do begin
if (((C mod 10) mod 2) = 1) then
S:=S+1;
C:=(C div 10);
end;
write(S);
End.
Во второй не совсем понял условие, но если попробуете переписать, то я доделаю)