1)Ввести целое число и отыскать произведение его четных цифр. Пример: Введите

1)Ввести целое число и отыскать творенье его четных цифр. Пример: Введите целое число: 1234. Творенье четных цифр числа 1234 одинаково 6. 2)Ввести целое число и определить количество черных и нечетных цифр. Пример: Введите целое число :12547 количество нечетных цифр:3 количество четных цифр:2

Задать свой вопрос
1 ответ
Var a, Summ:integer; begin write (Введите число ); readln (a); Summ : = 0; while a gt; 0 do begin Summ : = Summ + a mod 10; a : = a div 10; end; writeln (Сумма цифр одинакова , Summ); end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт