Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Программистт 15
0 / 0 / 0
Регистрация: 23.06.2014
Сообщений: 4
1

Определить, чему равняется произведение цифр числа: четному числу или нечетному (использовать функцию)

23.06.2014, 01:40. Просмотров 432. Ответов 5
Метки нет (Все метки)

4)2. Чему равняется произведение цифр числа четному числу или нечетному (ис-пользовать функцию)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2014, 01:40
Ответы с готовыми решениями:

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

Найти сумму произведение тех элементов заданной последовательности целых чисел первому четному числу
Найти сумму произведение тех элементов заданной последовательности целых чисел...

Определить, что сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1
Задание: Для каждой задачи составить программу, выводящую значение TRUE, если...

Найти наименьшее и наибольшее натуральные числа, произведение цифр в которых равно заданному числу.
привет всем . у нас имееться числа количество чисел состояшие из 2,3,5,7...

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

5
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
23.06.2014, 03:00 2
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
uses crt;
function odd2(a:integer):boolean;
 var d,b:integer;
begin
d:=1;
 repeat
  b:=a mod 10;
   d:=d*b;
  a:=a div 10;
 until a=0;
  if odd(d) then
   odd2:=false
  else
   odd2:=true;
end;
var a:integer;
begin
 write('Ââåäèòå ÷èñëî :');
  readln(a);
 if odd2(a)=true then
  writeln('ÏðîèçâåäåГ*ГЁГҐ öèôð Г·ГЁГ±Г«Г* Г·ГҐГІГ*îå ')
 else
  writeln('ÏðîèçâåäåГ*ГЁГҐ öèôð Г·ГЁГ±Г«Г* Г*ГҐГ·ГҐГІГ*îå ');
end.
0
Cyborg Drone
Модератор
5290 / 3169 / 2441
Регистрация: 17.08.2012
Сообщений: 10,179
24.06.2014, 02:01 3
Причесал.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function odd2(a: integer): boolean;
var d :integer;
begin
  d:=1;
  repeat
    d := d * a mod 10;
    a := a div 10;
  until a = 0;
  odd2 := odd(d)
end;
var a: integer;
begin
  write('Введите число: ');
  readln(a);
  if odd2(a)
    then writeln('Произведение цифр числа нечётное')
    else writeln('Произведение цифр числа чётное');
  readln
end.
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
24.06.2014, 11:23 4
В этой задаче не обязательно считать само произведение, достаточно отследить, есть ли в записи числа четные цифры - если есть, то произведение четное.

Это мое интуитивное решение... еще не проверял.

Добавлено через 8 минут
Проанализировал, вроде бы действительно всё так и есть.
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var
  i : Integer;
 
Function Odd2(n : Longint) : Boolean; {true - четное}
Begin
  If n>0 then Odd2:=(not Odd(n mod 10)) or Odd2(n div 10) else Odd2:=False;
end;
 
Begin
  For i:=10 to 200 do Writeln(i,Odd2(i):8);
end.
1
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
24.06.2014, 18:31 5
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
odd2 := odd(d)
а да кстати, вот это я тупанул
0
Cyborg Drone
24.06.2014, 23:27     Определить, чему равняется произведение цифр числа: четному числу или нечетному (использовать функцию)
  #6

Не по теме:

Цитата Сообщение от APALoff Посмотреть сообщение
есть ли в записи числа четные цифры - если есть, то произведение четное
APALoff, браво!

0
24.06.2014, 23:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2014, 23:27
Привет! Вот еще темы с ответами:

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

Определить произведение цифр числа
Дано двузначное число. Найти а.) число десятков в нём б.) число единиц в нём...

Определить произведение всех цифр числа
Дано натуральное число n. Определить произведение всех цифр этого числа.


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

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

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