Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Вывести щестизначных "счастливых" чисел (сумма первых трех цифр равна сумме трех последних), кратных семи в 10 колонок.

10-11 класс

Нагибушка 03 июля 2014 г., 16:10:11 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
ДьяволВкедах666
03 июля 2014 г., 17:36:21 (9 лет назад)

var
  b: integer;
  a: array [0..5] of byte;

begin
  for i: integer := 100000 to 999999 do
  begin
    b := i;
    for d: integer := 0 to 5 do
    begin
      a[d] := b mod 10;
      b := b div 10;
    end;
    if (a[0] + a[1] + a[2] = a[3] + a[4] + a[5]) then
      writeln(i);
  end;
end.

+ 0 -
380939583779
03 июля 2014 г., 19:16:51 (9 лет назад)

uses crt;
var
  chislo,i,happy,ten: integer;
  a: array [1..6] of integer;
begin
  happy := 100002; {наименьшее число,кратное 7}
  ten:=1; {счётчик колонок}
  while happy<999999 do
  begin
  {делим число happy на цифры с помощью временной переменной chislo}
  {и сохраняем эти цифры в массиве а}
    chislo := happy;
    for  i:= 1 to 6 do
    begin
      a[i] := chislo mod 10;
      chislo:= chislo div 10;
    end;
   {проверяем,счастливое ли число}
    if (a[1] + a[2] + a[3] = a[4] + a[5] + a[6]) then
      begin
       {если счастливое,то выводим}
        write(happy,' ');
        ten:=ten+1;
        if ten>10 then
          {если уже напечатано 10 чисел, то переходим в новую строку}
          begin
            ten:=1;
            writeln();
          end;
      end;
    happy:=happy+7;
  end;
end.

Ответить

Другие вопросы из категории

Наташа набрала текст на компьютере. Текст получился на 12 страниц, каждая страница состоит из 24 строк, в каждой строчке 21 символ. Определите

информационный объём получившегося текста в одной из кодировок Unicode? в которой каждый символ кодируется 16 битами.
А)12, 4Кбайт
В)16,1Кбайт
С)300Кбайт
D)1024Кбайт

Помогите пожалуйста решить задачу!!!!!!!!!!!!!

!Заданы числа А=78 и В=- 40. Запишите прямой, обратный и дополнительный коды в естественной форме (с учетом знака) с использованием 16-битной сетки для каждого числа.

Читайте также

1. Получить все шестизначные числа, в диапазоне от 0 до 999999, у которых сумма первых трех цифр

равна сумме последних трех цифр. Если в числе меньше шести цифр, то оно слева дополняется нулями.

Помогите написать програму на С++ Получить все шестизначные счастливые

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

Счастливым считается билет с 6 значным номером, у которого сумма первых 3 цифр равна сумме послед 3. Напечатать номера счастливых билетов. Пожалу

йста, решите, буду очень благодарна!

ПАСКАЛЬ, БЕЗ ВСЯКИХ СЛОЖНОСТЕЙ, НА ШКОЛЬНОМ УРОВНЕ 10 КЛАССА:)

Задача 1. Счастливые билетики по–ярославски

Есть счастливые билетики по–московски, есть счастливые билетики по–питерски, но мало кто слышал про счастливые билетики по–ярославски. В ярославском общественном транспорте номера билетиков состоят из 2N цифр. Билетик называется счастливым, если ярославская сумма первых N цифр равна ярославской сумме последних N цифр. Требуется найти количество счастливых билетиков по–ярославски для заданного N. На первый взгляд, задача простая, но что же такое «ярославская сумма»? Для заданного числа k найдем сумму его цифр, если получившееся число состоит из двух и более цифр, то найдем сумму цифр этого числа и т. д., пока не получим число, состоящее из одной цифры. Такая сумма цифр называется «ярославской суммой цифр». Билетики нумеруются от 00…000 до 99…999.
Вход: файл input.txt, в первой строке которого записано натуральное число N.
Ограничения: 1 ≤ N ≤ 1000
Выход: файл output.txt, содержащий одно число – количество счастливых билетиков по модулю109+7 (т.е. остаток от деления количества счастливых билетиков на 109+7)
Примеры
input.txt output.txt
1 10
6 110888113
Задача 2. Замощение улицы
Новый мэр Эль-Пасо Авраам Гарфилд решил замостить главную улицу города и для этой работы нанял бригаду рабочих во главе с Джорджем Шерманом. Улица представляет собой полосу длиной 4*N метров. Бригада Джорджа будет покрывать её плитками размера 1*2 метра. Плитки можно укладывать как горизонтально, так и вертикально. Шермана интересует, сколькими способами он может замостить главную улицу Эль-Пасо. Так как это число может быть очень большим, то от вас требуется найти число замощений по модулю 109+7 (т.е. найти остаток от деления количества замощений при делении на 109+7).
Вход: файл input.txt, в первой строке которого записано натуральное число N (ширина дороги в Эль-Пасо).
Ограничения: 0 < N < 113
Выход: файл output.txt, содержащий одно число – количество различных способов замостить улицу плитками 1*2 по модулю 109+7 (т.е. остаток от деления количества способов замостить улицу на 109+7).
Примеры
input.txt output.txt
2 5
3 11
7 781
Пояснение к примерам
Улицу длиной 4*2 метра (первый тест из примеров) можно замостить 5 следующими способами:

Задача 3. Упаковка печенья
На вас, как на главном программисте компании по производству печенья, лежит много ответственных заданий. Одно из них – производство и упаковка печенек должна соответствовать самым высоким требованиям Ярославского Консорциума по упаковке печенья.
В любой момент ваша линия производства выпускает новые печеньки, которые хранятся в печенькохранилище, ожидая упаковки. Время от времени поступают запросы с конвейера по упаковке – отправить из печенькохранилища ту печеньку, которую нужно упаковать. Перед поступлением в хранилище, диаметр каждой печеньки измеряется с точностью до 1 нанометра. На упаковку отправляется печенька, являющаяся медианой среди всех печенек. Что такое медиана? Если мы отсортируем печеньки по возрастанию диаметров, то, если печенек нечетное количество c, то на упаковку идёт печенька на позиции (c+1)/2 в отсортированной последовательности. Если же c – четное число, то печенька на c/2+1 в отсортированной последовательности. Если печеньку отправляют на упаковку, то она пропадает со склада. Ваша задача – промоделировать работу системы упаковки печенек.
Вход: файл input.txt, в каждой входной строке которого содержится либо положительное число d, означающее, что в хранилище поступает новая печенька диаметром d нанометров, либо символ '#', означающий запрос с конвейера по упаковке.
Ограничения: 1 ≤ d ≤ 300 000 000; количество строк ввода не более 600 000; также следует считать, что хранилище пусто до тех пор, пока туда не поступит первая печенька.
Выход: файл output.txt, содержащий несколько строк – после каждого запроса на упаковку в отдельную строку выводится диаметр печеньки, которая отправляется на упаковку.
Примеры
input.txt output.txt
1
2
3
4
#
#
#
# 3
2
1
4
1
#
2
#
3
#
4
# 1
2
3
4



Дано натуральное число: определить а) количество цифр в нем б)сумму его цифр в)произведение его цифр г)среднее арифметическое его цифр

д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр



Вы находитесь на странице вопроса "Вывести щестизначных "счастливых" чисел (сумма первых трех цифр равна сумме трех последних), кратных семи в 10 колонок.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.