|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.12.2016, 17:14 | #1 |
Регистрация: 19.12.2016
Сообщений: 8
|
Pascal. Дано натуральное число. Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа
Дано натуральное число. Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа.
|
19.12.2016, 17:45 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Код:
|
19.12.2016, 17:54 | #3 |
Регистрация: 19.12.2016
Сообщений: 8
|
начало как я понимаю так будет выглядеть:
var n,k:integer; p:real; begin writeln('Введите число:'); readln(n); ? И еще вопрос как нужно описать k? |
19.12.2016, 19:21 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
19.12.2016, 19:31 | #5 |
Регистрация: 19.12.2016
Сообщений: 8
|
Программа не решает или я не понимаю что требуют... А после then не должно быть else?
Код:
________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка на панели форматирования с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 19.12.2016 в 19:42. |
19.12.2016, 19:43 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
19.12.2016, 19:48 | #7 |
Регистрация: 19.12.2016
Сообщений: 8
|
Ну как я вижу else отсутствует :
Код:
Последний раз редактировалось Анастасия0; 19.12.2016 в 20:12. |
20.12.2016, 00:20 | #8 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
в данном случае ничего делать по ИНАЧЕ (else) не нужно, поэтому else и нет.
потому что в данном случае "иначе" - если цифра в числе чётная. по условию задачи, если цифра чётная, то нам с ней ничего делать не надо. Цитата:
если последняя цифра числа является нечётной, тогда произведение, полученное ранее домножим на эту последнюю цифру. Цитата:
в переменной p данный алгоритм находит произведение нечетных цифр данного числа (см. задание). потом сравниваем p с заданным числом k и определяем, Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа если p меньше k, тогда Верно. Последний раз редактировалось Serge_Bliznykov; 20.12.2016 в 00:23. |
||
22.12.2016, 19:39 | #9 |
Регистрация: 19.12.2016
Сообщений: 8
|
Спасибо большое что помогли без вас бы не сдала! А если нужно будет сделать с процедурой (с параметрами) как будет выглядеть? Если вы конечно можете помочь.
|
23.12.2016, 11:32 | #10 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Код:
Код:
или так: Код:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дано натуральное число.Верно ли, что оно является простым? | Роял | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 29.01.2015 21:47 |
Помогите составить программу (Lazarus): Дано натуральное число п. Поменять порядок цифр числа на обратный. | Ляйсан9517 | Lazarus, Free Pascal, CodeTyphon | 8 | 15.04.2014 13:46 |
Задано натуральное число N. Написать рекурсивную функцию для вычисления количества цифр заданного числа. | kirito_17 | Помощь студентам | 2 | 20.11.2013 15:55 |
Дано натуральное число N ,правдали,что сумма цифр етого числа-непарная?если несложно-выложите код програ | Dima170792 | Помощь студентам | 3 | 04.05.2011 22:35 |
Дано натуральное число n. Определить, сколько парных цифр в числе n. Чему равна сумма нечетных его цифр? | pahanzona | Microsoft Office Excel | 4 | 27.02.2011 15:46 |