Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 3
Регистрация: 04.10.2011
Сообщений: 92
1

Если число является трехзначным, то найти произведение его цифр; иначе - их сумму

11.11.2011, 19:26. Показов 1300. Ответов 4
Метки нет (Все метки)

7)если число 3-ч значное то найти произведение его цифр иначе их сумму
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2011, 19:26
Ответы с готовыми решениями:

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

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

Дано трехзначное число Является ли произведение его цифр трехзначным числом
Дано трехзначное число. Определить является ли произведение его цифр трехзначным числом Delphi 7

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

4
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.11.2011, 20:53 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Для случая, когда число меньше 1000
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a, s, d, e: integer;
begin
     writeln ('Введите число');
     readln (a);
     if (a>99) and (a<1000) then
         begin
              s:=a div 100;
              d:=(a div 10) mod 10;
              e:=a mod 10;
              writeln(s,'*',d,'*',e,'=',s*d*e);
         end
         else
         begin
              d:=a div 10;
              e:=a mod 10;
              writeln(d,'+',e,'=',d+e);
         end;
end.
1
1 / 1 / 0
Регистрация: 08.11.2011
Сообщений: 75
11.11.2011, 21:06 3
9_)увеличить каждую цифру натурального числа на 1 если она больше 7
ESLI NE SLOJNO POSMOTRI
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.11.2011, 21:21 4
Есть ли какие-то ограничения для вводимого числа? Или до бесконечности?!!
0
1 / 1 / 0
Регистрация: 08.11.2011
Сообщений: 75
11.11.2011, 21:27 5
beskone4nost nenado tama do 2 milionov gde to tak
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2011, 21:27

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

Получить число, состоящее из суммы цифр, если оно четное - найти сумму двух первых цифр, иначе - разность
Даны цифры двух целых чисел: трехзначного а3а2а1 и двусмысленного b2b1 где а1b1- число единиц, а2b2...

Определить является ли заданное число трёхзначным, если нет, вывести его последнюю цифру, а если да, первую
Помогите пожалуйста, срочно. Нужно определить является ли число трёхзначным, если нет, вывести его...

Дано четырехзначное натуральное число А. Является ли произведение цифр числа А трехзначным числом?
Дано четырехзначное натуральное число А. Является ли произведение цифр числа А трехзначным числом?...

Если число четное, то находим произведение его цифр. Если нечетное, то - сумму
Дано трехзначное число определить сумму или произведение его цифр в зависимости от четности.Если...

Дано четырехзначное число. Найти: сумму его цифр; произведение его цифр
Дано четырехзначное число. Найти: а) сумму его цифр; б) произведение его цифр


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

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

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