|
|
Другие темы раздела | |
Free Pascal Вычислить значение выражения Дано натуральное число n. Вычислить 1-1/2+1/4-1/8+...+(-1)^n*1/2^n Помогите пожалуйста:) https://www.cyberforum.ru/ free-pascal/ thread1402506.html |
Free Pascal Определить максимальное целое число n, удовлетворяющее условию Не получается написать программу( Определить максимальное целое число n, удовлетворяющее условию 3n^2 - 730n < 5. Нужно использовать цикл с параметром |
Free Pascal Составить программу нахождения координат элементов матрицы
https://www.cyberforum.ru/ free-pascal/ thread1401987.html Задан двумерный целочисленный массив. Известно, что среди его эле-ментов два и только два равны между собой. Составить программу нахождения координат этих элементов. Есть примерный код: Procedure More; Begin For i1:=1 to MaxN do For j1:=1 to MaxM do For i2:=1 to MaxN do For j2:=1 to MaxM do If m=m and ((i1<>i2) and (j1<>j2)) then Begin |
Free Pascal Вычислить произведение первых n сомножителей Дано натуральное число n. Вычислить произведение первых n сомножителей:\frac{1}{1}*\frac{3}{2}*\frac{5}{3} ... https://www.cyberforum.ru/ free-pascal/ thread1401412.html |
Куда нужно сохранить модуль? Free Pascal Куда сохранять модули в фри паскале что бы работали? Или в турбо паскале. |
Free Pascal Вычислить значение выражения
https://www.cyberforum.ru/ free-pascal/ thread1401249.html Вычислить \sum_{i=1}^{50}{\frac{1}{{i}^{3}} |
Free Pascal Исправить ошибки.
https://www.cyberforum.ru/ free-pascal/ thread1401177.html program(input,output); const K=1; L=20; var a, b, x, y: real; begin writeln ('please enter A value FOR x'); readln(x); A:= exp(ln(exp(ln(10) / 10) * abs(sin(x)/cos(x) / 10))); |
Пирамидальная сортировка Free Pascal Взяла отсюда https://ru.wikipedia.org/wiki/%D0%9F%D0%B8%D1%80%D0%B0%D0%BC%D0%B8%D0%B4%D0%B0%D0%BB%D1%8C%D0%BD%D0%B0%D1%8F_%D1%81%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%BA%D0%B0 переименовала переменные и подправила "почерк" на свой вкус. Но возникают глюки - почти все ок, кроме двух первых и двух последних элементов - они оказываются поменяны местами. Ну то есть первые два меняются местами,... |
Free Pascal Непонятный runtime error 201 при сортировке массива
https://www.cyberforum.ru/ free-pascal/ thread1400597.html Задание: 1. Разработать процедуры сортировки массива целых чисел методом прямого выбора, методом пузырьковой сортировки и методом шейкерной сортировки (язык программирования Паскаль или Си). 2. Правильность сортировки проверить путем подсчета контрольной суммы и числа серий в массиве. 3. Во время сортировки предусмотреть подсчет количества пересылок и сравнений (М и С), сравнить их с... |
Free Pascal Вычислить сумму положительных и сумму отрицательных значений функции Z
https://www.cyberforum.ru/ free-pascal/ thread1400257.html Вычислить сумму положительных и сумму отрицательных значений функции Z при изменении “x” от 0,2 до 1 с шагом 0,2 и при изменении “y” от –2 до 1 с шагом 0,5. Z=x2y3+sinyln |
Вычисление значения выражения при заданном значении аргумента Free Pascal Дано действительное число х. Вычислить при S=((х-2)(х-4)...(х-64)) / ((х-1)(х-3)...(х-61)). Х=18.75 |
Free Pascal Вывести на экран последние N строчных букв английского алфавита, начиная с буквы z Условие: С клавиатуры вводится число N . Вывести на экран последние N строчных букв английского алфавита, начиная с буквы z. Входные данные: Во входном потоке вводится одно число N(1<=N<=26). Выходные данные: В выходной поток вывести без пробелов N последних строчных букв английского алфавита, начиная с z. https://www.cyberforum.ru/ free-pascal/ thread1400148.html |
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
||||||
24.03.2015, 12:21 | 0 | |||||
Найти тройку x, y, z таких натуральных чисел, что n=x^2+y^2+z^2 (с блок-схемой) - Free Pascal - Ответ 738198724.03.2015, 12:21. Показов 1649. Ответов 3
Метки (Все метки)
Ответ
Вернуться к обсуждению: Найти тройку x, y, z таких натуральных чисел, что n=x^2+y^2+z^2 (с блок-схемой) Free Pascal
1
|
24.03.2015, 12:21 | |
Готовые ответы и решения:
3
Найти тройку последовательных натуральных чисел Найти все пары двузначных натуральных чисел M и N таких, что значение произведения MN не изменится Найти количество положительных натуральных чисел меньших 13813 таких, что из них нельзя получить палиндром Найти тройку натуральных чисел, которая является тройкой Пифагора |
24.03.2015, 12:21 | |
24.03.2015, 12:21 | |
Помогаю со студенческими работами здесь
0
Указать пару x, y таких натуральных чисел, что n=x^2+y^2 Найти в последовательности натуральных чисел количество таких чисел, которые кратны 4 и оканчиваются на 2 Дано натуральное число N. Указать пару х, у таких натуральных чисел, что N = х 2 + у 2 Дана неубывающая последовательность из N натуральных чисел. Определите, есть ли среди данных чисел хотя бы одна пара таких, что их сумма равна 100 |