Proc15. Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение B — в A (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить левый циклический сдвиг для двух данных наборов из трех чисел: (A_1, B_1, C_1) и …
Решаем задачи Абрамян на Кумире. Proc9
Proc9. Описать процедуру AddLeftDigit(D, K), добавляющую к целому положительному числу K слева цифру D (D — входной параметр целого типа, лежащий в диапазоне 1-9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K слева данные цифры D_1 и D_2, выводя результат каждого добавления.
Решаем задачи Абрамян на Кумире. Proc6
Proc6. Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.
Решаем задачи Абрамян на Кумире. Series35
Series35. Дано целое число K, а также K наборов ненулевых целых чисел. Признаком завершения каждого набора является число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах.
Решаем задачи Абрамян на Кумире. Series21
Series21. Дано целое число N (> 1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести True, если нет — вывести False.
Решаем задачи Абрамян на Кумире. Series14
Series14. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе, меньших K.
Решаем задачи Абрамян на Кумире. While19
While19. Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти число, полученное при прочтении числа N справа налево.
Решаем задачи Абрамян на Кумире. While14
While14. Дано число A (> 1). Вывести наибольшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет меньше A, и саму эту сумму.
Решаем задачи Абрамян на Кумире. While9
While9. Дано целое число N (> 1). Найти наименьшее целое число K, при котором выполняется неравенство 3^K > N.
Решаем задачи Абрамян на Кумире. For34
For34. Дано целое число N (> 1). Последовательность вещественных чисел A_K определяется следующим образом: A_1 = 1, A_2 = 2, A_K = (A_{K-2} + 2*A_{K-1})/3, K = 3, 4, … . Вывести элементы A_1, A_2, …, A_N.