0 / 0 / 0
Регистрация: 23.02.2020
Сообщений: 2
1

Создать массив трехзначных чисел, сумма цифр которых меньше 8, вывести массив и найти количество этих чисел

23.02.2020, 17:22. Показов 1982. Ответов 2
Метки нет (Все метки)

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

Найти количество трехзначных чисел, сумма цифр которых равна А
Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой...

Найти количество трехзначных чисел, сумма цифр которых равна А
Доброе день\утро\вечер,помогите пожалуйста с написанием кодом программы на С#. Найти количество...

Найти количество трехзначных чисел, сумма цифр которых равна A
найти количество трехзначных чисел сумма цифр которых равна A а само число заканчивается цифрой B...

Найти количество трехзначных чисел, сумма цифр которых равна числу А
найти количество трехзначных чисел, сумма цифр которых равна числу А(А вводить с клавиатуры)...

2
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
23.02.2020, 17:34 2
Лучший ответ Сообщение было отмечено VetaYaro как решение

Решение

Взято отсюда: Найдите элемент массива, сумма цифр которого наибольшая
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
25
26
27
28
29
30
31
32
33
34
const
  n = 100;
 
function Summ(n: integer): byte;
var
  s: byte;
  m: integer;
begin
  s := 0;
  m := n;
  while m > 0 do
  begin
    s := s + m mod 10;
    m := m div 10;
  end;
  Summ := s;
end;
 
var
  k, i: integer;
  a: array [1..n] of byte;
 
begin
  k := 0;
  for i := 100 to 999 do
    if summ(i) < 8 then
    begin
      inc(k);
      a[k] := i;
      write(a[k]:5, summ(i):5);
    end;
  writeln;
  writeln('Количество трехзначных чисел, сумма цифр которых меньше 8: ', k);
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7066 / 4194 / 2728
Регистрация: 22.11.2013
Сообщений: 12,023
Записей в блоге: 1
25.02.2020, 16:47 3
Неэкономно. Я б сказал -- расточительно.

Pascal
1
2
3
4
  for a:=1 to 7 do for b:=0 to 7-a do for c:=0 to 7-a-b do begin
    Inc(k); a[k]:=a*100+b*10+c; Write(a[k]:4, a+b+c:2);
  end;
  WriteLn; WriteLn(k);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2020, 16:47
Помогаю со студенческими работами здесь

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В
Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой...

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В
Ребят,напишите программу полностью! Найти количество трехзначных чисел, сумма цифр которых равна...

Найти количество трехзначных чисел, сумма цифр которых равна A, а само число заканчивается цифрой B
Найти количество трехзначных чисел, сумма цифр которых равна A, а само число заканчивается цифрой B...

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В
Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru