Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Найти кратчайший путь в ориентированном графе используя множества Ориентированный граф задано массивом, индексами которого являются имена вершин, а элементами - множества вершин, в которые можно попасть с данной. С помощью функции определить количество дуг... https://www.cyberforum.ru/ pascalabc/ thread1636162.html	Pascal ABC Вычисления с хранением последовательности значений Даны действительные числа a1, ..., a15. Получить \bar{a}=\frac 1{15}\sum_{i=1}^{15}a_i\,;\qquad s=\sqrt{\frac{\sum_{ i=1}^{15}\left(a_i-\bar{a} \right)^2}{14}}
Pascal ABC Получить удвоеную сумму всех положительных членов последовательности https://www.cyberforum.ru/ pascalabc/ thread1636119.html даны натуральное число n , действиетльные числа а1,....,an. Получить удвоеную сумму всех положительных членов последовательности а1 ..аn . Помогите пожалуйста :scratch:	Pascal ABC В двумерном массиве вставить последнюю строку https://www.cyberforum.ru/ pascalabc/ thread1636115.html В двумерном массиве вставить последнюю строку после всех строк в которых есть А uses crt; const k=6; var mas:array of integer; n,m,i,j,now:integer; flag:boolean; function isint(s:string; var...
Элементы одномерного массива с суммой квадратов индексов больше значения элемента, заменить заданным числом Pascal ABC 26.Дан целочисленный массив размера n x m с элементами из диапазона [0,20) Те элементы, сумма квадратов индексов которых больше значения элемента, замените числом 100.	Pascal ABC Подсчитать сумму элементов одномерного массива, модули которых являются простыми числами 25. Дан целочисленный массив размера n x m с элементами из диапазона [0,20). Подсчитайте сумму тех элементов массива, модули которых являются простыми числами. https://www.cyberforum.ru/ pascalabc/ thread1635656.html
Pascal ABC В одномерном массиве найдите все элементы, являющиеся простыми числами Дан массив из 25 целых различных чисел из диапазона [0,40). Найдите в нем все элементы, являющиеся простыми числами. https://www.cyberforum.ru/ pascalabc/ thread1635594.html	Pascal ABC В одномерном массиве вычислить разницу между максимальным и минимальным элементами Дан массив из 15 целых чисел из диапазона [-10, 10). Вычислите в нем разницу между максимальным и минимальным элементами.
Pascal ABC Подсчитать сумму элементов массива, принадлежащих заданному отрезку 24. Дан целочисленный массив размера n x m и два числа a и b. Посчитайте сумму элементов массива, принадлежащих отрезку . https://www.cyberforum.ru/ pascalabc/ thread1635564.html	Pascal ABC Обработка строк: подсчет слогов https://www.cyberforum.ru/ pascalabc/ thread1635547.html Пожалуйста,очень срочно!Дали задание на 1 день. Определить количество слов в тексте из 1 слога,2 и т.д
Подсчет количества элементов матрицы, больших среднего арифметического всех ее элементов Pascal ABC Составьте программу подсчета количества элементов двумерного целочисленного массива, больших среднего арифметического всех его элементов	Pascal ABC В одномерном массиве найти сумму четных и количество нечетных элементов Дан массив из 20 целых чисел из диапазона [10,100). Найдите в нем сумму четных и количество нечетных элементов. https://www.cyberforum.ru/ pascalabc/ thread1635422.html

Puporev

Почетный модератор

64276 / 47575 / 32739

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

Сообщений: 115,182

25.02.2016, 07:34

Определить, можно ли число представить в виде суммы квадратов трех натуральных чисел - Pascal ABC - Ответ 8798835

25.02.2016, 07:34. Показов 4015. Ответов 4

Метки (Все метки)

Ответ

Сообщение от JiL777

указать тройку x,y,z таких натуральных числе что , n=x^2+y^2+z^2

Во первых 0 обычно не относят к натуральным числам, а под тройкой чисел понимают три разных числа.

Сообщение от JiL777

.как его написать код?

А чуть-чуть подумать и написать от нуля и для повторяющихся чисел совсем никак?

Pascal

var n,x,y,z,k:integer;
begin
write('n=');
readln(n);
k:=0;
for x:=0 to trunc(sqrt(n)) do
for y:=0 to trunc(sqrt(n)) do
for z:=0 to trunc(sqrt(n)) do
if x*x+y*y+z*z=n then
 begin
  k:=1;
  writeln(x,'^2+',y,'^2+',z,'^2=',n);
 end;
if k=0 then write('Число нельзя представить в виде трех квадратов')
end.

Вернуться к обсуждению:
Определить, можно ли число представить в виде суммы квадратов трех натуральных чисел Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

25.02.2016, 07:34

Готовые ответы и решения:

Дано натуральное число n. Можно ли представить его в виде суммы двух квадратов натуральных чисел?
Дано натуральное число n. Можно ли представить его в виде суммы двух квадратов натуральных чисел?...

Среди чисел найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел
Дано натуральное число n. Среди чисел 1, 2, ..., n найти все те, которые можно представить в виде...

Найти все числа, которые можно представить в виде суммы квадратов двух натуральных чисел
Дано натуральное число n. Среди чисел 1,2,...,n найти все те, которые можно представить в виде...

Можно ли представить число в виде суммы квадратов трех натуральных чисел
Дано натуральное число N. Можно ли его представить в виде суммы квадратов трех натуральных чисел

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

25.02.2016, 07:34

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

Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел?
1.Составить блок-схему "Гороскоп"(по месяцу выдает количество дней в месяце). 2. написать...

Найти все числа, которые можно представить в виде суммы квадратов двух натуральных чисел.
Дано натуральное число n. Среди чисел 1,2, …, n найти все те, которые можно представить в виде...

Можно ли представить число в виде произведения трёх последовательных натуральных чисел.
1. Составить цункцию для нахождения наименьшего нечётного натурального делителя к(к<>1) любого...

Выяснить можно ли представить число в виде произведения трех последовательных натуральных чисел
дано натуральное число N. Выяснить можно ли представить это число в виде произведения трех...

Наверх