|
|
Другие темы раздела | |
Pascal ABC Считывать с клавиатуры слова в массив до тех пор,пока длина следующего слова не станет меньше предыдущего Помогите пожалуйста написать программу в паскале --- программа должна считывать с клавиатуры слова в массив до тех пор,пока длина следующего слова не станет меньше предыдущего.После чего должна выдать на экран слова с непарным количеством букв. https://www.cyberforum.ru/ pascalabc/ thread684430.html |
Строки. Угадывание букв Pascal ABC Помогите пожалуйста написать программу в паскале --- программа должна считывать слово (рядок).Потом очистить экран и выдать сообщение о количестве букв в рядке.Далее показывается приглашение "введіть літеру".Если считанная буква есть в рядке,то показывается сообщение о том,что есть и место(номер) в рядке.Если нету,то сообщение об отсутствии.Процесс повторяется до тех пор,пока не будут угаданы все... |
Pascal ABC Заполнение матрицы по правилу
https://www.cyberforum.ru/ pascalabc/ thread684427.html Матрицу К(m,n) заполнить следующим образом.Элементам,находящимся на периферии(по периметру матрицы),присвоить значение 1;периметру оставшейся подматрицы-значение 2 и так далее до заполнения всей матрицы. |
Pascal ABC Считывать последовательность пока каждое последующее число больше предыдущего Помогите пожалуйста написать в паскале задачки... 3 задачи 1)программа должна считывать с клавиатуры в массив действительные числа до тех пор,пока каждое следующее больше предыдущего,после этого должна выдать на экран сумму введённой последовательности и количество введенных чисел. https://www.cyberforum.ru/ pascalabc/ thread684416.html |
Pascal ABC на проверку не могу найти ошибку: Const n=10; m=15; p=25; Var f1,f2,f3:file of integer; A,A1:arrayof integer; B,B1:arrayof integer; C:arrayof integer; i,j,k:integer; Begin assign (f1,'d:\proba1.txt'); |
Pascal ABC Дана строка, заменить все слова "Кит" на "Кот" и наоборот
https://www.cyberforum.ru/ pascalabc/ thread684345.html Кот плывет по океану, Кит на кухне ест сметану. Поменяйте Кит на Кот, Кот на Кит наоборот. |
Pascal ABC Определить средний балл успеваемости по каждому предмету
https://www.cyberforum.ru/ pascalabc/ thread684287.html Помогите: По итогам аттестации в группе по нескольким предметам, выбрать ударников и выдать их фамилии. Определить средний балл успеваемости по каждому предмету. Заранее спасибо. |
Составьте список команд участниц переходного турнира Pascal ABC Даны результаты соревнований по футболу в двух группах:сильной и слабой.Замещение мест в сильной группе проводится по результатам переходного турнира в котором участвует 2 худших команды из сильной группы и 2 лучших из слабой.Составьте список команд участниц переходного турнира. Примечание:В случай совпадении очков сравнить разность забитых и пропущеных голов. |
Pascal ABC Числовая последовательность задана рекуррентной формулой:
https://www.cyberforum.ru/ pascalabc/ thread684255.html Задать с консоли два первых члена последовательности и . Найти первые n членов последовательности и их сумму. Результаты вычислений вывести в виде таблицы с заголовком. помогите составить код) |
Pascal ABC Найти в тексте и вывести на экран все слова начинающиеся на букву "д" Ребят, помогите написать программу, пожалуйста. Задачка состоит в том, чтобы программа сумела просканировать весь текст, расположенный в обычном текстовом редакторе, и вывести на экран все слова, начинающиеся на первую букву "д". Текст: "Окружающие люди нисколько не походили на созданных его пылким воображением. Эти были грязнее, вшивей, жестче и непосредственней. Они крали друг у ... https://www.cyberforum.ru/ pascalabc/ thread684194.html |
Определите, можно ли из данных четырех отрезков составить прямоугольник Pascal ABC Здраствуйте, в паскале профан,надеюсь на вашу помощь. Нужна помощь по Pascal. Помогите написать алгоритм,а лучше опишите саму программу. "Определите,можно ли из данных четырех отрезков a,b,c,d(a,b,c,d-натуральные числа),составить прямоугольник." |
Pascal ABC Неправильный ответ при вычислении program max; const alfa = 0.9; gamma = 0.6; var x,y,a,d,z: real; begin a:=(ln(3)*ABS(alfa+gamma))/sin(alfa*gamma); x:=a*3*cos(gamma); d:=x+exp(3*alfa-exp(gamma*ln(2+gamma))*ln((alfa+1)/(gamma*gamma))); y:=sqrt(d); https://www.cyberforum.ru/ pascalabc/ thread684106.html |
1296 / 469 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
|
|
30.10.2012, 18:36 | 0 |
Если оба числа четные, то оба возвестив квадрат - Pascal ABC - Ответ 363112430.10.2012, 18:36. Показов 3971. Ответов 9
Метки (Все метки)
Ответ
stasz0r, не, сама функция mod что возвращает?
придется мне за собой же флуд подтирать... Добавлено через 25 секунд SladkayaVata, да уже решили ж вопрос Вернуться к обсуждению: Если оба числа четные, то оба возвестив квадрат Pascal ABC
0
|
30.10.2012, 18:36 | |
Готовые ответы и решения:
9
Найдите количество пар элементов массива таких, что оба числа в паре четные Если оба числа отрицательные, то заменить каждое из них его квадратом Даны два числа. Если оба кратны 5, то вывести натуральный логарифм первого Даны два целых числа, если числа не равны, то заменить каждое из них большим, а иначе заменить оба числа нулям |
30.10.2012, 18:36 | |
30.10.2012, 18:36 | |
Помогаю со студенческими работами здесь
0
Даны два различных числа a и b. Если оба числа являются нечетными, то наименьшее из двух чисел возвести в квадрат. Даны два действительные числа.Вывести первое число,если оно больше второго,и оба числа если это не так. Подсчитать количество элементов массива, у которых оба соседа - четные числа Нужно сделать if-case. Ввести с клавиатуры два числа, выведите первое из них, если оно больше второго и оба числа, если это не так. Заданы два целых числа. Определить являются ли они оба четными или оба нечетными или какое из них четное, а какое нечетное. Вывести первое число, если оно меньше второго, и оба числа, если это не так |