Найдите Пифагоровы числа на заданном отрезке [а, b] - VB

Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.71/7:

@Dzhon 1 / 1 / 0 Регистрация: 12.03.2015 Сообщений: 222

	Найдите Пифагоровы числа на заданном отрезке [а, b] 16.11.2016, 12:27. Показов 1357. Ответов 2 Метки нет (Все метки) Найдите Пифагоровы числа на заданном отрезке [а, b] 0

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

16.11.2016, 12:27

Ответы с готовыми решениями:

Найдите Пифагоровы числа на заданном отрезке
Найдите Пифагоровы числа на заданном отрезке Причем найти их нужно с заранее генерированых рандомно чисел в интервале 0-5

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

Найдите и выведите на экран все пары чисел-близнецов на заданном отрезке
Всем доброго вечера. Помогите пожалуйста решить задачу. Условие: Будет называть два числа «близнецами», если они простые и разность...

@Dzhon 1 / 1 / 0 Регистрация: 12.03.2015 Сообщений: 222
	17.11.2016, 23:08 [ТС]
	Кто поможет с кодом? 0

kreotodr

39 / 39 / 8

Регистрация: 15.08.2014

Сообщений: 634

23.11.2016, 16:27

Вот пожалуйста

В лоб — простым перебором:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  A, B, N1, N2, N3 : Word;
begin
  Write('A = '); ReadLn(A);
  Write('B = '); ReadLn(B);
  for N1 := A to B - 2 do
    for N2 := N1 + 1 to B - 1 do
      for N3 := N2 + 1 to B do
        if N1*N1 + N2*N2 = N3*N3 then
          WriteLn('(', N1, ',', N2, ',', N3, ')');
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

23.11.2016, 16:27

Помогаю со студенческими работами здесь

Существуют натуральные числа равные сумме кубов своих цифр. Найдите такие числа в заданном интервале
Существуют натуральные числа равные сумме кубов своих цифр ,например 370 ,33+73+03=370. Найдите такие числа в интервале от «а» до «b».

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

Найдите все чётные числа в заданном интервале
1. Определите является ли число 43015 чётным? Найдите все чётные числа в интервале от 43005 до 43405. 2. Восстановите цифры двоичного...

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

Найти на заданном отрезке все числа, которые равны сумме кубов своих цифр
Написать программу, которая находит на заданном отрезке все числа, которые равны сумме кубов своих цифр (например: 153 = 1^3 + 5^3 + 3^3) и...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Наверх