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

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

04.09.2017, 21:08. Просмотров 300. Ответов 4
Метки нет (Все метки)

Дано трёхзначное число. Определить разность между суммой его цифр и их произведением
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.09.2017, 21:08
Ответы с готовыми решениями:

Вычислить сумму цифр числа, являющегося произведением цифр заданного целого трехзначного числа
Вычислить сумму цифр числа, являющегося произведением цифр заданного целого...

Определить разность между суммой элементов с четными индексами и суммой элементов, индексы которых кратны трем
Дан массив вещественных чисел Z(16). Определить разность между суммой элементов...

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

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

Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
Вывести на экран 1 или 0 в зависимости от того, ровный квадрат заданного...

4
rufukutu
1 / 1 / 0
Регистрация: 15.08.2017
Сообщений: 5
04.09.2017, 21:30 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program _1_;
  uses crt;
  var chislo,raznost,summa,proizv,a,b,c:integer;
begin
  write('Введите 3-ех значное число - ');
  readln(chislo);
  a:= chislo div 100;{сотни}
  b:= (chislo mod 100)div 10;{десятки}
  c:= (chislo mod 100)mod 10;{еденицы}
  proizv:=a*b*c;
  summa:=a+b+c;
  raznost:=summa-proizv;
  writeln('Разность - ',raznost);
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3806 / 2489 / 2053
Регистрация: 22.11.2013
Сообщений: 6,924
04.09.2017, 23:06 #3
Pascal
7
8
9
10
11
12
13
14
var n, a, b, c: Integer;
begin
  Write('n [100..999]: '); Readln(n);
  a:=n div 100;
  b:=n div 10 mod 10;
  c:=n mod 10;
  WriteLn('Разность суммы и произведения цифр ',a+b+c-a*b*c);
end.
1
Новичок
Модератор
1494 / 967 / 460
Регистрация: 17.07.2012
Сообщений: 4,922
Завершенные тесты: 3
05.09.2017, 13:44 #4
bormant, только n вместо chislo.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3806 / 2489 / 2053
Регистрация: 22.11.2013
Сообщений: 6,924
05.09.2017, 14:23 #5
Новичок,
принято. Копипаста -- зло
0
05.09.2017, 14:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.09.2017, 14:23

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

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

Определить, какая из цифр данного трехзначного числа больше
Дано трехзначное число. Определить, какая из его цифр больше: a. первая или...


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

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

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