|
|
Другие темы раздела | |
Turbo Pascal Дано натуральное n-значное число Р. Проверить, является ли данное число палиндромом Дано натуральное n-значное число Р. Проверить, является ли данное число палиндромом. Программу надо сделать через процедуру или функцию!!! Помогите пожалуйста люди))) https://www.cyberforum.ru/ turbo-pascal/ thread206288.html |
свойства операций надо множествами Turbo Pascal Выбрав произвольные множества А, В и С с ограничениями Турбо Паскаля, проиллюстрировать истинность следующих свойств операций над множествами и отношений между ними (с нижним индексом в формулах используется дополнение множества до соответствующего базового типа T, т.е. Bt = T – B, где B : set of T). A/(B U S)=(A/B) U (A/S) |
Turbo Pascal Найдите наименьшее натуральное p. Найдите наименьшее натуральное p, не меньше заданного натурального числа n, такое что 2p+1(p в степени) - простое. uses crt; var p,i,s,n,z:integer; res:integer; begin clrscr; writeln('vvedite naturalnoe n'); readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread206286.html |
Turbo Pascal Скопировать в другой файл все строки, содержащие заданный символ
https://www.cyberforum.ru/ turbo-pascal/ thread206263.html Скопировать в другой файл все строки, содержащие заданный символ. Program space; var q,new:text; s:string; i:integer; fname:string; x:char; begin writeln('pri vvode enter budut udaleni lishnie probeli'); |
Turbo Pascal ошибка в коде в массиве надо элементы кратные 2 заменить нулем uses crt; var a:array of integer; n,i,j,p:integer; begin clrscr; write('n='); readln(n); writeln('массив:'); for i:=1 to n do |
Turbo Pascal Найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps = 0.0001. в чем ошибка почему не работает? (способ с постусловием) uses crt; const x=-0.4; var n:integer; a,s,y:real; begin repeat a:= exp((2*n-1)*ln(x))/(2*n-1); s:=s+a; https://www.cyberforum.ru/ turbo-pascal/ thread206244.html |
Turbo Pascal количество чисел
https://www.cyberforum.ru/ turbo-pascal/ thread206243.html 1 Найти количество различных чисел 2 Найти число которое встречается max число раз 3 Найти медиану последовательности 4 Расставить числа так, чтобы их max сумма двух соседних чисел была наименьшей |
Turbo Pascal Определить номер последнего отрицательного числа в последовательности 1.Даны два целых положительных числа определить какие цифры использовались для записи и первого и 2ого числа и составить из них наименьшие возможное число(каждую цифру можно использовать лишь один раз). 2. Определить номер последнего отрицательного числа в последовательности из 10 чисел. |
Turbo Pascal Создать два одномерных массива А и В различной длины. Рассортировать "горкой" оба массива. Затем соединить в массив С и снова рассортировать "горкой".
https://www.cyberforum.ru/ turbo-pascal/ thread206101.html Помогите решить задачу. Создать два одномерных массива А и В различной длины. Рассортировать "горкой" оба массива. Затем соединить в массив С и снова рассортировать "горкой". Есть наброски но её надо до решить и она не правильно работает. uses crt; var a:array of integer; n,i,iMin,loc,left,right: integer; min,temp: integer; procedure SOZD (n:integer); var i:integer; begin |
Turbo Pascal Найти сумму ряда Вот сама задачка: Вычислить сумму x+x^3/5+x^5/5+...+x^11/11 при х=2.Помогите решить с помощью Цикла с постусловие (Repeat).Или подскажите как делать не как не получается:( Добавлено через 1 час 9 минут люди хелп!!!!!!!!!!! Добавлено через 56 минут люди покажите хоть через любой цикл как это делать:wall: https://www.cyberforum.ru/ turbo-pascal/ thread206092.html |
Определить день недели, который приходится на 1 января Turbo Pascal составить программу ля определения дня недели, который приходится на 1 января любого года ХХ века по следующему алгоритму: обозначим 2 последние цифры в записи года через n например 92 (1992) а соответствующий день недели Д1- понедельнк д2- вторник... и т.д. найти целую часть числа получаемого умножением n на число1,25. найти остаток от деления получаемого произведения на 7. остаток... |
Turbo Pascal Для данной зарплаты получить все варианты выдачи зарплаты этими купюрами Имеются купюры ценностью в 1,2,,5,10 долларов. Для данной зарплаты получить все варианты выдачи этой зарплаты этими купюрами. Количество купюр неограниченно. https://www.cyberforum.ru/ turbo-pascal/ thread206074.html |
8 / 7 / 1
Регистрация: 20.09.2010
Сообщений: 143
|
|
08.12.2010, 20:04 [ТС] | 0 |
показать что для n=1,2,3.. - Turbo Pascal - Ответ 118215108.12.2010, 20:04. Показов 3911. Ответов 20
Метки (Все метки)
Ответ
for i:=1 to n do
s:=s+exp(5*ln(i)) типо этого что-то? Вернуться к обсуждению: показать что для n=1,2,3.. Turbo Pascal
0
|
08.12.2010, 20:04 | |
Готовые ответы и решения:
20
Показать, что для всех n= l,2,3 - N (1^5 + 2^5 + . + n^5) + (1^7 + 2^7 + . + n^7) = 2(1 + 2 + . + n)^4 Для заданной функции z=f(x,y) показать, что F=0 Показать, что для всех n выполняется равенство Показать что для любого целого m выражение (m-1)*m*(m+1) делится на 3 |
08.12.2010, 20:04 | |
08.12.2010, 20:04 | |
Помогаю со студенческими работами здесь
0
Показать, что последовательность ограничена; сформулировать утверждение для последовательности Показать, что для любого связного графа справедливо неравенство Показать, что решение уравнения xn + yn = zn в целых положительных числах существует только для несколльких n Показать, что для любых таких чисел существует регулярный граф порядка n и степени d |