Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
2polar
1

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

18.01.2013, 22:31. Просмотров 1215. Ответов 1
Метки нет (Все метки)

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

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

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

Найти натуральные от 1 до n числа кратные семи, и сумма цифр которых также кратна семи
Если возможно, с while и repeat

Найти все трехзначные числа, кратные семи, у которых сумма цифр тоже кратна семи
1. даны действительные числа S и T. получить y=F(T,-2S,1.1 7)+F(2.2,T,T-S), где...

1
89 / 89 / 80
Регистрация: 07.10.2012
Сообщений: 145
18.01.2013, 22:38 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
    i, s, x, ans :longint;
begin
    for i := 100 to 999 do begin
        s := 0;
        x := i;
        while (x > 0) do begin
            s := s + x mod 10;
            x := x div 10;
        end;
        if (s mod 21 = 0) then inc(ans);
    end;    
    writeln(ans);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2013, 22:38

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

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

Среди всех делителей числа найти те сумма цифр которых кратна трем
Среди всех делителей числа n найти те сумма цифр которых кратна трем. Очень срочно нужно, а у...

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

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


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

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

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