Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Frenki
0 / 0 / 0
Регистрация: 13.05.2012
Сообщений: 13
1

Если число кратно 12, то найти произведение его цифр, иначе заменить число нулем

13.05.2012, 15:07. Просмотров 753. Ответов 1
Метки нет (Все метки)

С клавиатуры вводится десять трехзначных чётных чисел. Если число кратно 12, то найти произведение цифр, из которого оно состоит, иначе заменить число нулем.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2012, 15:07
Ответы с готовыми решениями:

Если число четырёхзначное, то найти сумму его цифр, а если трёхзначное, то произведение цифр числа
С клавиатуры вводится целое число X из промежутка .если число четырёхзначное,то...

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

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в...

Дано четырехзначное число. Выведите на экран TRUE, если произведение крайних цифр этого числа кратно сумме цифр числа
Помогите решить простые задачи мозги кипят: 4-я. Дано четырехзначное число....

Произведение цифр трехзначного числа кратно 11, само число также делится на 11. Найти количество таких чисел
Здравствуйте. Буду благодарен, если поможете с решением задачи. ...

1
Krot-buterbrod
87 / 87 / 75
Регистрация: 21.08.2011
Сообщений: 146
13.05.2012, 15:41 2
Лучший ответ Сообщение было отмечено Frenki как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const n=3;
var i: integer;
   a: array [1..n] of integer;
begin
   for i:=1 to n do begin
      readln(a[i]);
      if a[i] mod 12 <>0 then begin
         a[i]:=0; writeln('   Заменено на 0');
      end
      else writeln('   Произведение=',(a[i] div 100)*(a[i] div 10 mod 10)*(a[i] mod 10));
   end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2012, 15:41

Последовательность. Если число положительное, то удвоить его. Иначе найти квадрат
пользователем вводятся любые числа ,сколько раз установит пользователь.Если...

Если сумма цифр введенного трехзначного числа N четная, то увеличить число вдвое, иначе найти сумму N+1N
Если сумма цифр введенного трехзначного числа N четная, то увеличить число...

Вводится пятизначное число, нужно найти сумму его цифр и произведение цифр
Помогите, пожалуйста!!! Найти ошибку в коде. Очень нужно Вот условие: ...


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

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

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