Записи с меткой «Паскаль»

Решаем задачи Абрамян на Паскале. Series37

Series37. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Найти количество наборов, элементы которых возрастают или убывают.

Решаем задачи Абрамян на Паскале. Series36

Series36. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Найти количество наборов, элементы которых возрастают.

Решаем задачи Абрамян на Паскале. Series35

Series35. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Признаком завершения каждого набора является число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах.

Решаем задачи Абрамян на Паскале. Series34

Series34. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элементов в каждом наборе. Для каждого набора выполнить следующее действие: если в наборе содержится число 2, то вывести сумму его элементов; если в наборе нет двоек, то вывести 0.

Решаем задачи Абрамян на Паскале. Proc 20

Proc20. Описать функцию TriangleP($$a$$, $$h$$), находящую периметр равнобедренного треугольника по его основанию a и высоте h, проведенной к основанию ($$a$$ и $$h$$ — вещественные). С помощью этой функции найти периметры трех треугольников, для которых даны основания и высоты. Для нахождения боковой стороны $$b$$ треугольника использовать теорему Пифагора: $$b^2 = (a/2)^2 + h^2$$.

Решаем задачи Абрамян на Паскале. Matrix94

Matrix94. Дана квадратная матрица порядка $$M$$. Обнулить элементы матрицы, лежащие одновременно ниже главной диагонали (включая эту диагональ) и выше побочной диагонали (также включая эту диагональ). Условный оператор не использовать.

Решаем задачи Абрамян на Паскале. Series33

Series33. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элементов в каждом наборе. Для каждого набора вывести номер его последнего элемента, равного 2, или число 0, если в данном наборе нет двоек.

Решаем задачи Абрамян на Паскале. Series32

Series32. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.