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

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

Сакура2034 Сакура2034    1   08.01.2020 22:36    0

Ответы
Настя16764631 Настя16764631  11.10.2020 00:03

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.

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика