Proc31. Описать функцию IsPalindrom($$K$$), возвращающую True, если целый параметр $$K$$ ($$> 0$$) является палиндромом (то есть его запись читается одинаково слева направо и справа налево), и False в противном случае. С ее помощью найти количество палиндромов в наборе из 10 целых положительных чисел. При описании функции можно использовать функции DigitCount и DigitN из заданий Proc29 …
Записи с меткой «Новичкам»
Решаем задачи Абрамян на Паскале. Proc 30
Proc30. Описать функцию DigitN($$K$$, $$N$$) целого типа, возвращающую $$N$$-ю цифру целого положительного числа $$K$$ (цифры в числе нумеруются справа налево). Если количество цифр в числе $$K$$ меньше $$N$$, то функция возвращает -1. Для каждого из пяти данных целых положительных чисел $$K_1, K_2, …, K_5$$ вызвать функцию DigitN с параметром $$N$$, изменяющимся от 1 до 5.
Решаем задачи Абрамян на Паскале. Proc 29
Proc29. Описать функцию DigitCount($$K$$) целого типа, находящую количество цифр целого положительного числа $$K$$. Используя эту функцию, найти количество цифр для каждого из пяти данных целых положительных чисел.
Решаем задачи Абрамян на Паскале. Proc 28
Proc28. Описать функцию IsPrime($$N$$) логического типа, возвращающую True, если целый параметр $$N$$ ($$> 1$$) является простым числом, и False в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в …
Решаем задачи Абрамян на Паскале. Proc 27
Proc27. Описать функцию IsPowerN($$K$$, $$N$$) логического типа, возвращающую True, если целый параметр $$K$$ ($$> 0$$) является степенью числа $$N$$ ($$> 1$$), и False в противном случае. Дано число $$N$$ ($$> 1$$) и набор из 10 целых положительных чисел. С помощью функции IsPowerN найти количество степеней числа $$N$$ в данном наборе.
Решаем задачи Абрамян на Паскале. Proc 26
Proc26. Описать функцию IsPower5($$K$$) логического типа, возвращающую True, если целый параметр $$K$$ ($$> 0$$) является степенью числа 5, и False в противном случае. С ее помощью найти количество степеней числа 5 в наборе из 10 целых положительных чисел.
Решаем задачи Абрамян на Паскале. Proc 25
Proc25. Описать функцию IsSquare($$K$$) логического типа, возвращающую True, если целый параметр $$K$$ ($$> 0$$) является квадратом некоторого целого числа, и False в противном случае. С ее помощью найти количество квадратов в наборе из 10 целых положительных чисел.
Решаем задачи Абрамян на Паскале. Proc 23
Proc23. Описать функцию Quarter($$x$$, $$y$$) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами ($$x$$, $$y$$). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.
Решаем задачи Абрамян на Паскале. Proc 22
Proc22. Описать функцию Calc($$A$$, $$B$$, $$Op$$) вещественного типа, выполняющую над ненулевыми вещественными числами $$A$$ и $$B$$ одну из арифметических операций и возвращающую ее результат. Вид операции определяется целым параметром $$Op$$: 1 — вычитание, 2 — умножение, 3 — деление, остальные значения — сложение. С помощью $$Calc$$ выполнить для данных $$A$$ и $$B$$ операции, определяемые данными …
Решаем задачи Абрамян на Паскале. Proc 21
Proc21. Описать функцию SumRange($$A$$, $$B$$) целого типа, находящую сумму всех целых чисел от $$A$$ до $$B$$ включительно ($$A$$ и $$B$$ — целые). Если $$A > B$$, то функция возвращает 0. С помощью этой функции найти суммы чисел от $$A$$ до $$B$$ и от $$B$$ до $$C$$, если даны числа $$A, B, C$$.