|
|
Другие темы раздела | |
Pascal ABC Попадает ли точка в выделеную область Что то в условии не правильно ребят посматрите Uses crt; var x,y:real; c:integer; begin clrscr; writeln('Введите координаты точек :'); Readln(x,y); if ((sqr(x)+sqr(y)<=4) and(y<=(3/5*x)+3)and (y<=(6/4*x)+4)and (y<=(-5*x)+20)and (y<=(2/5*x)-5)and https://www.cyberforum.ru/ pascalabc/ thread775062.html |
Pascal ABC Под каким углом к горизонту следует бросить камень, чтобы дальность полета была наибольшей Помогите пожалуйста решить задачу! . Под каким углом к горизонту следует бросить камень массой 200 г со скоростью 20 м/с, чтобы дальность полета была наибольшей, если сила сопротивления воздуха Fтр = Av+Bv^2 (А = 0,1 Н*с/м; В = 10-3 Н*с3/м3)? У меня есть задача бросок тела брошенного под углом к горизонту. Помогите изменить ее. program model1; uses graphABC; const g=9.8; pi=3.14; var... |
Pascal ABC Найти длины кратчайших путей в неориентированном графе, все рёбра которого имеют единичный вес, от заданной вершины до всех остальных. Начальную верши Найти длины кратчайших путей в неориентированном графе, все рёбра которого имеют единичный вес, от заданной вершины до всех остальных. Начальную вершину ввести с клавиатуры. Граф задан в текстовом файле матрицей инциденций. https://www.cyberforum.ru/ pascalabc/ thread775042.html |
Pascal ABC Построить бинарное дерево поиска, содержащее заданные числа
https://www.cyberforum.ru/ pascalabc/ thread775041.html Дана последовательность чисел. Построить бинарное дерево поиска, содержащее эти числа. Для числа введённого с клавиатуры произвести удаление из дерева, вывести оставшиеся числа обходом слева направо. После выполнения программы очистить память, занятую древовоидной структурой. |
Pascal ABC Дана последовательность чисел. Построить бинарное дерево, содержащее эти числа Дана последовательность чисел. Построить бинарное дерево, содержащее эти числа. Удалить из дерева число, введённое с клавиатуры и вывести оставшиеся числа в дереве. После выполнения программы очистить память, занятую древовоидной структурой |
Pascal ABC Найти эйлеров путь в неориентированном графе. Начальную вершину пути ввести с клавиатуры. Граф задан в текстовом файле списком ребер
https://www.cyberforum.ru/ pascalabc/ thread775039.html Найти эйлеров путь в неориентированном графе. Начальную вершину пути ввести с клавиатуры. Граф задан в текстовом файле списком рёбер. |
Pascal ABC Перевод числа из четверичной системы счисления в десятичную
https://www.cyberforum.ru/ pascalabc/ thread775025.html Перевод числа из четверичной системы счисления в десятичную. Спасибо:curtsy: |
Найти множители числа Pascal ABC Например, найдем разложение на простые множители чисел от 1 до 7. Числа 2, 3, 5 и 7 простые, в их разложении по одному множителю. В разложении числа 1 ноль простых множителей. В разложении чисел 4 = 2·2 и 6 = 2·З по два простых множителя. Значит, ответом к задаче для N = 7 есть число 6. (В файле input.txt содержится чиcло N но это не важно, подскажите как разложить числа на множетили) var... |
Pascal ABC Зеркальное отображение слов Я написал программу, но она получилась не такая как было задано условием. Я сделал что бы программа зеркально отображала предложение, которое напишешь, а по условию задачи мне нужно что бы она отображала зеркально только слова в которых количество символов парное (то есть делится на 2). Помогите, пожалуйста, её отредактировать так, что бы она зеркально меняла только те слова которые парные,... https://www.cyberforum.ru/ pascalabc/ thread774936.html |
Pascal ABC Составить программу формирования и вывода массива
https://www.cyberforum.ru/ pascalabc/ thread774913.html Помогите пожалуйста. 2- Составить программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу: 1-й равен сумме текущих индексов, увеличенной в 10 раз; 2-й равен целой части от деления следующего числа на сумму текущих индексов; 3-й равен разности двух предыдущих элементов. |
Проверить простейшую программу Pascal ABC Писал я простейшую программу про возраст и думал что все прекрасно, но не запускается. Выдает ошибку про константу в строчке "x<=7: writeln ('Вы ребенок');". Причем, у моих друзей выдает вообще другие ошибки. Помогите дауну программирования разобраться в ошибке. Программа, в зависимости от введенного пользователем возраста, должна выдавать его "статус". Var x: shortint; begin |
Pascal ABC Вывести значение true, если приведенное высказывание для предложенных исходных данных является истинным Вывести значение true, если приведенное высказывание для предложенных исходных данных является истинным, и значение false в противном случае (все числа, для которых не указано иное, являются действительными): данное число x не принадлежит интервалу (a, b) Помогите:cry: https://www.cyberforum.ru/ pascalabc/ thread774908.html |
66 / 66 / 29
Регистрация: 13.02.2011
Сообщений: 392
|
|
30.01.2013, 13:29 | 0 |
Найти произведение всех четных чисел от 10 до 100 - Pascal ABC - Ответ 407130130.01.2013, 13:29. Показов 10261. Ответов 18
Метки (Все метки)
Ответ
совершенно верно!!! все у вас правильно!!! а ответ вот такой!!!
Вернуться к обсуждению: Найти произведение всех четных чисел от 10 до 100 Pascal ABC
0
|
30.01.2013, 13:29 | |
Готовые ответы и решения:
18
Найти сумму четных чисел от 1 до 100 и произведение нечетных Найти производное всех чётных чисел от 1 до 100 Найти сумму всех четных чисел от 1 до 100 Найти сумму всех четных натуральных чисел от 1 до 100 |
30.01.2013, 13:29 | |
30.01.2013, 13:29 | |
Помогаю со студенческими работами здесь
0
Найти сумму всех чётных чисел от 1 до 100 включительно Найти произведение всех чётных чисел от 2 до n Вводится 10 чисел. Найти сумму всех четных чисел и произведение нечетных Найти произведение всех четных целых чисел от а до а+3 Найти произведение всех натуральных четных чисел от 20 до 36 Найти произведение всех удвоенных чётных чисел диапазона [1,50] |