|
|
| Другие темы раздела | |
| Free Pascal Подсчет количества повторений символов Доброго вечера Нужна помощь в добавление функции подсчета количества каждого символа в имеющийся код uses crt; var f:text; ws:unicodestring; s,sc:string; i:integer; begin assign(f, 'text.txt'); https://www.cyberforum.ru/ free-pascal/ thread1622074.html |
Free Pascal Найти и вывести на экран числа, которые встречаются во всех строках матрицы Задана целочисленная таблица Аm,n, строки которой упорядочены по неубыванию. Требуется найти и вывести на экран числа, которые встречаются во всех строках. Если таких чисел нет, вывести соответствующее сообщение. |
| Free Pascal Все элементы, не равные нулю, переписать (сохраняя их порядок) в начало, а нулевые элементы – в конец массива Задан одномерный массив. Все его элементы, не равные нулю, переписать (сохраняя их порядок) в начало массива, а нулевые элементы – в конец массива. Новый массив не заводить. https://www.cyberforum.ru/ free-pascal/ thread1622014.html | Free Pascal В каждой строке файла найти слова, для которых первая и вторая половина слова являются перестановками Дан текстовый файл f.В каждой строке найти слова,для которых первая и вторая половина слова являются перестановками одних и тех же символов.Результаты выполненных действий сохранить в текстовом файле g https://www.cyberforum.ru/ free-pascal/ thread1621508.html |
|
Free Pascal Прокомментировать каждую строку программы что делает каждая строчка.. самое основное только procedure z3a; const max=100; var a:array of integer; n,i,j,k:byte; s:integer; begin clrscr; |
Free Pascal Требуется написать программу , которая выводит в порядке возрастания все правильные несократимые дроби,знамена Требуется написать программу , которая выводит в порядке возрастания все правильные несократимые дроби,знаменатели которых не превосходят n(n больше либо равно 2, и n меньше либо равно 500) (через функцию) https://www.cyberforum.ru/ free-pascal/ thread1620844.html |
| Free Pascal Требуется оградить два земельных участка,имеющих форму прямоугольников,если для каждого участка заданы его пло Требуется оградить два земельных участка,имеющих форму прямоугольников,если для каждого участка заданы его площадь и периметр. Определить длины секций ограды,которые потребуются для каждого участка. (нужно сделать через процедуру). Program vadim; procedure ograda(var s,p:real;k:byte); var a,b,d:real; begin writeln(k,' участок'); repeat write('площадь='); readln(s); https://www.cyberforum.ru/ free-pascal/ thread1620732.html |
Данные о ежедневном количестве выпускаемой продукции каждым цехом некоторого предприятия в течение некоторого Free Pascal Данные о ежедневном количестве выпускаемой продукции каждым цехом некоторого предприятия в течение некоторого промежутка времени оформлены в виде таблицы. Требуется: 2) определить, в какой из дней предприятие выпустило продукцию в наибольшем объеме; (двумерные массивы) program vadimka; var a:array of integer; i,j,m,n,s,max,x,y:integer; begin randomize; repeat |
| Free Pascal Определить вариант покупки,чтобы деньги были истрачены полностью,а количество предметов было наибольшим: Учени Определить вариант покупки,чтобы деньги были истрачены полностью,а количество предметов было наибольшим: Ученику поручено купить на данную сумму как можно больше линеек и карандашей: простых и цветных. Известно,что линейка стоит А р., а карандаши - цветной и простой соответственно В р., и С р.,(нужно решить через систему) Program _5; var a,b,c,s,x,y,z,b1,c1,sum,max,xm,ym,zm,i:integer;... https://www.cyberforum.ru/ free-pascal/ thread1620698.html | Free Pascal Определять номера, образующие вторую пару, для которых одно из чисел является четным числом, а второе нечетным Несколько школьников выстроились в шеренгу. Для каждого школьника известен его день рождения. Требуется Определять номера соседей, образующих вторую пару соседей, для которых одна из дат является четным числом, а вторая - нечетным. https://www.cyberforum.ru/ free-pascal/ thread1620318.html |
|
Free Pascal Нарисовать круг Мне надо нарисовать круг точками. Чтобы у него верхняя Левая часть круга - красные точки, Левая нижняя - зелеными, правая верхняя - синяя, правая нижняя - жёлтая. Помогите пожалуйста!!!! |
Free Pascal Найти наименьшее число по заданным условиям найти наименьшее число вида 1/3^n (n большее либо равно 0), большее A (число A<1 задано). https://www.cyberforum.ru/ free-pascal/ thread1620190.html |
|
625 / 945 / 150
Регистрация: 10.08.2015
Сообщений: 5,034
|
||||||
| 22.12.2015, 18:01 | 0 | |||||
Вычислить значение выражения - Free Pascal - Ответ 852942622.12.2015, 18:01. Показов 617. Ответов 5
Метки (Все метки)
Ответ 
Сообщение от d31m03
в вашем случае это
Вернуться к обсуждению: Вычислить значение выражения Free Pascal
0
|
||||||
| 22.12.2015, 18:01 | |
|
Готовые ответы и решения:
5
Вычислить значение выражения Вычислить значение выражения |
| 22.12.2015, 18:01 | |
| 22.12.2015, 18:01 | |
|
Помогаю со студенческими работами здесь
0
|
Наверх