|
|
Другие темы раздела | |
Turbo Pascal Азбука Морзе Нужно создать программу, которая при вводе кодировке азбукой Морзе переводит точки и тире в нормальные буквы. Мой код: program Katia11; uses crt; var s,s2:string; i,j,j2,l,r:integer; begin clrscr; writeln('Введите кодировку: '); https://www.cyberforum.ru/ turbo-pascal/ thread222072.html |
Дорешайте, ну пожалуйста! Turbo Pascal 1) Дан массив размера N. Осуществить сдвиг элементов массива вправо на одну позицию. 2) Даны две строки: S1 и S2. Удалить из строки S1 все подстроки, совпадающие с S2. Если таких подстрок нет, то вывести S1 без изменений. 3) Составить таблицу слов данного текста, начинающихся с буквы "А", с указанием числа повторений каждого слова. |
Turbo Pascal Замена в массиве всех эллементов с четными индексами на значение 1 помогите пожалуйста а то я что то даже не знаю какой оператор использовать... составить программу: для замены в массиве Y(50) всех эллементов с четными индексами на значение 1. заранее спасибо.буду очень очень благодарна https://www.cyberforum.ru/ turbo-pascal/ thread222050.html | Turbo Pascal Вычеслить сумму н слагаемих При некоторых заданных x, N и Е, определяемых вводом, вычислите сумму N слагаемых заданного вида, затем сумму тех слагаемых, которые по абсолютной величине больше Е. Для второго случая выполните суммирование для двух значений Е, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму. Сравните результаты с точным значением функций, для которой данная сумма... https://www.cyberforum.ru/ turbo-pascal/ thread222044.html |
Turbo Pascal Как вставить в меню программуЫ program mmenu; uses crt; const k=4; m:array of string = (' Zadanie1 ',' Zadanie2 ',' Zadanie3 ',' Exit '); var i:byte; ch:char; n:byte; |
Turbo Pascal Для цикла с предусловием запишите его полный эквивалент с помощью цикла с постусловием
https://www.cyberforum.ru/ turbo-pascal/ thread222033.html pr:=1; for i:=2 to n do if odd(i) then pr:=pr-(1/i) else pr:=pr+(1/i); |
Turbo Pascal программа игнорит функцию READ !!(
https://www.cyberforum.ru/ turbo-pascal/ thread222029.html вобщем проблемма такая что прога просто при выполнении через ф7 просто проскакивает функцию read и не просит ничего ввести изза этого возникают другие проблеммы... весь код выкладывать не буду но вот процедура в которой ошибка type mass = array of byte; procedure save(a: mass); var f:text; s:string; i,j:byte; begin ... |
Turbo Pascal Списки Помогите написать прогу Условие: В файле записать сведения о результатах выступлений спортсменов по некоторым соревнованиям, например, стрельбе из лука. Каждый судья записывает свои сведения в формате: фамилия спортсмена, пять оценок за каждую из стрельб. При обработке сведений из каждых пяти оценок отбрасывается самая высокая и самая низкие оценки и из остальных берется средняя оценка.... |
Turbo Pascal Программа для паскаля! Даны 2 последовательности рассортированных чисел А(15) и В(10). Получить общую последовательность С(25) в убывающем/возрастающем порядке методом слияния. И, если , возможно блок-схему к ней!) Добавлено через 37 секунд помогите сделать выше написанную программу! https://www.cyberforum.ru/ turbo-pascal/ thread222008.html | Turbo Pascal Сиволы и строки ! H-P Дано натуральное число n, символы S1,....Sn. Известно что среди S1....Sn Есть хотябы 1на запятая. Определить а) S(i) 1 запятая б) S(i) последняя запятая. Дано натуральное число n, и симполы S1....Sn. ГРуппы символов, разделиины пробелом одним или несколькими и не содержащие пробелов внутри себя, будем называть словами! найти кольчество слов у которых совподает 1 и последний символ! PlZZZ... https://www.cyberforum.ru/ turbo-pascal/ thread222004.html |
Turbo Pascal определить общее число четных и нечетных элиментов Дана матрица A номеров мест в вагоне .Заполнить ее рядом натуральным чисел от 1 до 32 .Нечетные места -нижние ) четные-верхние 1)ЗАПИСАТЬ МАТРИЦУ 2)задать 5 различных элиментов = 0 3) определить число оставшихся верхних и нижних мест в каждой строке (купе) 4)определить общее число четных и нечетных элиментов Ребят помогите пожалуста ) нужно на завтра |
Turbo Pascal В одном массиве записано количество мячей, заброшеных баскетбольной командой в каждой из 15-ти игр В одном массиве записано количество мячей, заброшеных баскетбольной командой в каждой из 15-ти игр,в другом-количество пропущеных мячей .Для каждой игры определить словесный результат игры ( выигрыш или проигрыш ). Напишите пожалуйста хотя бы наброски. https://www.cyberforum.ru/ turbo-pascal/ thread221996.html |
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
|
|
30.12.2010, 06:47 | 0 |
Количество чисел, больших 100 - Turbo Pascal - Ответ 125005330.12.2010, 06:47. Показов 2720. Ответов 24
Метки (Все метки)
Ответ
Собственно, задание - бред. Цифр, удовлетворяющих условию, не бывает. Тему переименовал, чтобы подобная глупость не висела в списке тем.
Вернуться к обсуждению: Количество чисел, больших 100 Turbo Pascal
0
|
30.12.2010, 06:47 | |
Готовые ответы и решения:
24
Найти сумму целых положительных чисел, больших 20, меньше 100 и кратных 9 Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2, 4 и 8 Подсчитать количество четных чисел и чисел, кратных 3, из 100 сгенерированных |
30.12.2010, 06:47 | |
30.12.2010, 06:47 | |
Помогаю со студенческими работами здесь
0
количество чисел больших своих соседей Количество чисел, больших своих соседей Подсчитать общее количество чисел в матрице, подсчитать процент чисел больших 10 Задан массив из 11 вещественных чисел Найти сумму и количество элементов, больших 2 Функция: Подсчитать количество простых чисел в последовательности, больших заданного числа М Узнать количество чисел, кратных 3 от 1 до 100 |