Задание 3
Найти наименьшее общее кратное четырёх заданных натуральных чисел.
Два простых числа называются "близнецами", если они отличаются друг от друга на 2 (таковы, например, числа 41 и 43). Напечатать все пары "близнецов" из отрезка [n, 2n], где n -- заданное целое число, большее 2.
Даны три целые матрицы размером 9х4. Напечатать ту из них, где больше нулевых строк (если таких матриц несколько, напечатать их все).
По заданным 20-элементным целым массивам x и y вычислить
type
table1=array [1..10, 1..10] of integer;
table2=array [1..20, 1..30] of integer;
Описать процедуру constr (A,B,C,D), которая по матрицам A, B и C типа table1 строит следующую матрицу D типа table2:
|A B C|
D = | |
|B N A|
где N -- нулевая матрица типа table1
const n = 20;
type vector = array [1..n] of real;
Описать процедуру change (x, y, z), которая в том из векторов x, y и z, где больше всего отрицательных элементов (считать, что такой вектор один), все его положительные элементы заменяет на их кубы -- если это вектор x или вектор z, и на их обратные величины -- если это вектор y.
Описать функцию next без параметров, которая считывает из введённой строки первую литеру, отличную от пробела, и объявляет ее своим значением. Использовать эту функцию для подсчета k -- количества отличных от пробела литер текста, который задан во входной строке и за которой следует точка.
Даны натуральное число р и вещественные квадратные матрицы A, B и C 4-го порядка. Получить (ABC)^p.
const n = ...; {целая константа > 1}
type
num = array [1..n] of '0'..'9';
arr = array [1..40] of num;
Описать процедуру sort(x), упорядочивающую по неубыванию числа массива х следующим методом: все числа из х упорядочить по последней цифре и перенести во вспомогательный массив у; затем числа из у упорядочить по предпоследней цифре (при равенстве этих цифр сохранять упорядоченность по последней цифре) и записать их снова в массив х; далее числа из х упорядочить по третьей от конца цифре и перенести в массив у; и т. д. (Учесть, что в конце концов числа должны оказаться в х.)
const
n = 8;
m = 13;
type matrix = array [1..n, 1..m] of real;
Описать процедуру swap(A,B), меняющую местами максимальные элементы матриц А и В. (Считать, что в каждой матрице только один максимальный элемент.)
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника. (При определении расстояний учесть, что площадь треугольника вычисляется и через три его стороны, и через основание и высоту.)
Написать функцию, которая вычисляет значение ab. Числа а и b могут быть любыми дробными положительными числами.
Написать процедуру, которая выводит на экран строку, состоящую из звездочек. Длина строки (количество звездочек) является параметром функции.
Написать процедуру, которая выводит строку, состоящую из одинаковых символов. Длина строки и символ являются параметрами процедуры.