Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Вадим112
42 / 4 / 4
Регистрация: 08.11.2014
Сообщений: 98
#1

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

09.01.2015, 16:45. Просмотров 923. Ответов 2
Метки нет (Все метки)

.Секундомер отмерял 6458 секунд. Найти количество комбинаций, в которых сумма квадратов разрядов минут равна сумме квадратов разрядов секунд
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2015, 16:45
Ответы с готовыми решениями:

Цикл: Найти количество чисел из диапазона от 100000 до 999999, у которых произведение первых 3 разрядов равно произведению 3 последних.
Найти количество чисел из диапазона от 100000 до 999999, у которых произведение...

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13
Добрый день,подскажите пожалуйста код к заданию в Delphi: Среди двузначных...

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

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

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

2
mss
2632 / 2257 / 275
Регистрация: 24.12.2010
Сообщений: 13,725
09.01.2015, 16:47 #2
Можно если в голове не пусто
0
krapotkin
3397 / 3009 / 1042
Регистрация: 14.04.2014
Сообщений: 14,590
Записей в блоге: 15
10.01.2015, 10:23 #3
Лучший ответ Сообщение было отмечено Вадим112 как решение

Решение

программное решение примитивно
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
n:=0;
for i:=0 to 6458 do
begin
  //H:=i div 60 div 60;
  M:=i div 60 mod 60;
  S:=i mod 60;
 
  A:=m div 10;
  B:=m mod 10;
  C:=s div 10;
  D:=s mod 10;
 
  if (A*A+B*B=C*C+D*D) then
    inc(n);
end;
аналитическое было бы интереснее )
но с первого наскока я застрял на переходе от 60-ричной системы к 10-чной
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2015, 10:23

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

Найти все пары чисел, для которых их сумма равна их произведению и количество таких пар
может есть какие-нибудь другие варианты? procedure TForm1.Button1Click(Sender:...

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


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

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

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