Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Oliva999
0 / 0 / 0
Регистрация: 20.01.2014
Сообщений: 13
1

Вывести на экран все четырехзначные числа, у которых первые три цифры равны, а также их количество и сумму

20.01.2014, 23:57. Просмотров 721. Ответов 1
Метки нет (Все метки)

Вывести на экран все четырехзначные числа, у которых первые три цифры равны, а также их количество и сумму
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.01.2014, 23:57
Ответы с готовыми решениями:

Найти все четырехзначные числа, у которых равны крайние цифры
Очень нужна программа! Найти все четырехзначные числа, у которых равны крайние цифры, а само число...

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

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при...

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

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

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
28907 / 19069 / 7495
Регистрация: 22.10.2011
Сообщений: 33,236
Записей в блоге: 6
21.01.2014, 00:44 2
Лучший ответ Сообщение было отмечено Oliva999 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var 
  i, j, s, k : integer;
begin
  s := 0; k := 0;
  for i := 1 to 9 do
    for j := 0 to 9 do
      if j <> i then 
      begin
        writeln(1110*i + j);
        s := s + 1110 * i +j; k := k + 1;
      end;
      
  writeln('Сумма = ', s, ' Количество = ', k);
end.
Те числа, у которых все 4 цифры равны, выводиться и учитываться не будут. Если надо и их тоже - строку №7 нужно удалить...
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2014, 00:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа,...

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

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


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

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

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