Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Программистт 15
0 / 0 / 0
Регистрация: 23.06.2014
Сообщений: 4
#1

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

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

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

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

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

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

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

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

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

5
Svager
394 / 374 / 212
Регистрация: 14.09.2013
Сообщений: 1,202
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
Модератор
4981 / 3039 / 1239
Регистрация: 17.08.2012
Сообщений: 9,764
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
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
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
394 / 374 / 212
Регистрация: 14.09.2013
Сообщений: 1,202
24.06.2014, 18:31 #5
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
odd2 := odd(d)
а да кстати, вот это я тупанул
0
Cyborg Drone
24.06.2014, 23:27     Определить, чему равняется произведение цифр числа: четному числу или нечетному (использовать функцию)
  #6

Не по теме:

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

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

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

Определить произведение цифр четырехзначного числа, введенного пользователем - Pascal ABC
Помогите пожалуйста или направьте на путь истинный. 2.Составить программу, которая определяет произведение цифр четырехзначного...

Рассматривая слова как числа, определить произведение цифр в словах - Pascal ABC
Дана символьная строка, содержащая цифры от 0 до 9, объединенные в слова, разделенные между собой одним или несколькими пробелами....

В тексте для слов, длина которых равна нечетному числу, удалить средний символ - Pascal
В тексте для слов, длина которых равна нечетному числу, удалить средний символ. Слова из одной буквы не принимать во внимание


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

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

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