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

Определить кратна ли трем сумма цифр числа

07.12.2014, 15:10. Просмотров 3080. Ответов 4
Метки нет (Все метки)

Пожалуйста помогите !!
Дано четырехзначное число. Определить кратна ли трем сумма его цифр.
На FreePascal,используя div и mod.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2014, 15:10
Ответы с готовыми решениями:

Если сумма цифр введенного трехзначного числа кратна трем - увеличить его на 1, иначе уменьшить в 2 раза
Задача: Если сумма цифр введенного трехзначного числа Н кратна трем, то увеличить само число на...

Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15
Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15. ЧЕРЕЗ REPEAT

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

Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа.
1) Сумма цифр трёхзначного числа кратна 7, само число также делится на 7. Найти все такие числа ...

4
Платежеспособный зверь
8666 / 4094 / 1588
Регистрация: 28.10.2009
Сообщений: 11,014
07.12.2014, 15:45 2
Pascal
1
2
3
4
5
6
var
a:integer;
begin
readln(a);
if a mod 3=0 then writeln('yes')else writeln('no');
end.
0
охотник
1010 / 534 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
07.12.2014, 16:25 3
кот Бегемот, div не использовали, нужно было
Pascal
1
2
3
4
5
6
var
a:integer;
begin
readln(a);
if (a mod 3) div 1=0 then writeln('yes')else writeln('no');
end.
:-)
0
Платежеспособный зверь
8666 / 4094 / 1588
Регистрация: 28.10.2009
Сообщений: 11,014
07.12.2014, 16:53 4
Цитата Сообщение от vint-81 Посмотреть сообщение
div не использовали
Зачем использовать то, что не нужно? Вы можете использовать скальпель, когда рубите дрова, но вы же его не используете. В данном случае всё решается и без div

Добавлено через 3 минуты
Цитата Сообщение от vint-81 Посмотреть сообщение
div 1
угу. Ещё напишите *1+(1-1) и возведите в 1 степень.
1
охотник
1010 / 534 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
07.12.2014, 16:56 5
Цитата Сообщение от Amelia Посмотреть сообщение
Дано четырехзначное число. Определить кратна ли трем сумма его цифр.
На FreePascal,используя div и mod.
...
Цитата Сообщение от кот Бегемот Посмотреть сообщение
Зачем использовать то, что не нужно? Вы можете использовать скальпель, когда рубите дрова, но вы же его не используете. В данном случае всё решается и без div
не по теме
шутка не удалась :-(
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2014, 16:56

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

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

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

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

Дан массив целого типа, определить элементы, сумма цифр которых кратна 3
Дан массив А (н) целого типаю оределить элементы, сумма цыфр которых кратна 3м Добавлено через 1...


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

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

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