Question

Pascal подробно
С клавиатуры вводится целое положительное (может быть равно 0) число С, не превышающее 30 000. Напиши программу, которая считает и выводит на экран количество нечётных цифр числа С.


Напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0,d=7,an=98.a_1 = 0, d = 7, a_n = 98 a1=0,d=7,an=98.

Answer 1

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.

Во второй не совсем понял условие, но если попробуете переписать, то я доделаю)