Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
Inga28
0 / 0 / 0
Регистрация: 08.04.2017
Сообщений: 15
1

Написать программу, которая определяет, каких цифр в целом числе больше, четных или нечетных

08.04.2017, 16:29. Просмотров 2051. Ответов 2
Метки нет (Все метки)

Дано некоторое целое число. Написать программу, которая определяет, каких цифр в нем больше четных или нечетных. Кроме того, сформировать из данного числа два новых числа. Первое должно состоять из нечетных цифр исходного числа, а второе из четных. вывести новые числа.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.04.2017, 16:29
Ответы с готовыми решениями:

Каких цифр четных или нечетных больше в целом числе
Каких цифр четных или нечетных больше в целом числе (использовать процедуру)

Дано некоторое целое число. Написать программу, которая определяет, каких цифр в нем больше
Дано некоторое целое число. Написать программу, которая определяет, каких цифр в нем больше четных...

Написать программу, которая генерирует четырехзначное число и определяет, есть ли в числе одинаковые цифры
Написать программу, которая генерирует четырехзначное число и определяет, есть ли в числе...

Написать программу, которая находит произведение цифр, меньших 5 в заданном числе
напишите программу которая находит произведение цифр, меньших 5 в данном числе. нельзя использовать...

Вывести, каких цифр в числе больше: четных или нечетных, и насколько (цикл While)
Дано число, кол-во цифр неизвестно, вывести каких цифр больше четных или нечетных, и насколько.

2
Puporev
Модератор
58043 / 44167 / 30510
Регистрация: 18.05.2008
Сообщений: 105,754
08.04.2017, 16:52 2
Лучший ответ Сообщение было отмечено Inga28 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var a,b,c,kc,kn,k1,k2:integer;
begin
repeat
write('Введите натуральное число a=');
readln(a);
until a>0;
b:=0;
c:=0;
kc:=0;
kn:=0;
k1:=1;
k2:=1;
while a>0 do
 begin
  if odd(a mod 10)then
   begin
    inc(kn);
    b:=k1*(a mod 10)+b;
    k1:=k1*10;
   end
  else
   begin
    inc(kc);
    c:=k2*(a mod 10)+c;
    k2:=k2*10;
   end;
  a:=a div 10;
 end;
writeln('Количество нечетных цифр=',kn,' количество четных=',kc);
if kn>kc then writeln('Нечетных больше')
else if kc>kn then writeln('Четных больше')
else writeln('Нечетных и четных поровну');
if kn>0 then writeln('Число из нечетных цифр=',b);
if kc>0 then writeln('Число из четных цифр=',c);
end.
0
Inga28
0 / 0 / 0
Регистрация: 08.04.2017
Сообщений: 15
11.04.2017, 18:06  [ТС] 3
Есть ли варианты создать программу компактнее?
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.04.2017, 18:06

Определить, каких чисел в массиве больше, четных или нечетных
Определить, каких чисел в массиве больше, четных или нечетных. С объяснениями, пожалуйста.

Подсчитать, каких чисел в файле больше - четных или нечетных
В текстовом файле f в столбик записаны целые числа. Подсчитать, каких чисел в нем больше, четных...

Дан целочисленный файл f. Подсчитать, каких чисел в нем больше, четных или нечетных
Дан целочисленный файл f. Подсчитать, каких чисел в нем больше, четных или нечетных.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.