Информатика, опубликовано 2018-08-22 20:27:41 by Гость
С клавиатуры вводится натуральное число. Определите сколько в его записи нечетных чисел
Ответ оставил Гость
Var n: longint;
k: integer;
begin
k:=0;
write(Введите число: );
readln(n);
while n>0 do
begin
if n mod 10 mod 20 then
k:=k+1;
n:=n div 10;
end;
writeln(В числе ,k, нечетных цифр);
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на