If29. Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.
Решаем задачи Абрамян на Паскале. Pointer26
Pointer26. Даны указатели P_1 и P_2 на начало и конец очереди (если очередь является пустой, то P_1=P_2=nil). Также дано число N (>0) и набор из N чисел. Описать тип TQueue — запись с двумя полями типа PNode: Head (начало очереди) и Tail (конец очереди) — и процедуру Enqueue(Q, D), которая добавляет в конец очереди Q …
Решаем задачи Абрамян на C. For5
For5. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, …, 1 кг конфет.
Решаем задачи Абрамян на C. If28
If28. Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 …
Решаем задачи Абрамян на Паскале. Param52
Param52. Описать процедуру RemoveLineNumbers(S), удаляющую из начала каждой строки существующего текстового файла с именем S ее порядковый номер, добавленный процедурой AddLineNumbers (см. задание Param51), а также пробелы, отделяющие номер от последующего текста. Если строки не содержат номеров, то процедура не выполняет никаких действий. Применить эту процедуру к файлу с данным именем.
Решаем задачи Абрамян на Паскале. Pointer25
Pointer25. Даны две непустые очереди; адреса начала и конца первой равны P_1 и P_2, а второй — P_3 и P_4. Элементы каждой из очередей упорядочены по возрастанию (в направлении от начала очереди к концу). Объединить очереди в одну с сохранением упорядоченности элементов. Вывести указатели на начало и конец полученной очереди. Операции выделения и освобождения памяти …
Решаем задачи Абрамян на C. For4
For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.
Решаем задачи Абрамян на C. If27
If27. Для данного вещественного x найти значение следующей функции f, принимающей значения целого типа: f(x) =\begin{cases} 0, \text{ if } x < 0,\\ 1, \text{ if } x\in [0, 1), [2, 3), … ,\\-1, \text{ if } x\in[1, 2), [3, 4), … .\end{cases}
Решаем задачи Абрамян на Паскале. Param51
Param51. Описать процедуру AddLineNumbers(S, N, K, L), добавляющую в начало каждой строки существующего текстового файла с именем S ее порядковый номер: первая строка получает номер N, вторая — N+1 и т. д. Номер отображается в K позициях, выравнивается по правому краю и отделяется от последующего текста L пробелами (K>0, L>0). Если строка файла является пустой, …
Решаем задачи Абрамян на C. For13
For13. Дано целое число N (> 0). Найти значение выражения 1.1 — 1.2 + 1.3 — … (N слагаемых, знаки чередуются). Условный оператор не использовать.