Информатика, опубликовано 2018-08-22 23:27:08 by Гость
Нужно написать программу подсчитывающую количество чётных и не чётных цифр в числе
Ответ оставил Гость
//PascalABC.Net 3.0, сборка 1053
var
n: longint;
d, n1, n2: integer;
begin
n1 := 0; n2 := 0;
Write(Введите натуральное число: );Read(n);
repeat
d := n mod 10;
if odd(d) then Inc(n1) else Inc(n2);
n := n div 10
until n = 0;
Write(Нечетных , n1, , четных , n2)
end.
Тестовое решение:
Введите натуральное число: 3534052
Нечетных 4, четных 3
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на