1)Рассматривается множество целых чисел, принадлежащих числовому отрезку [3394; 8599], которые удовлетворяют следующим условиям: − остаток от деления на 3 равен 1;
− остаток от деления на 7 равен 5.
Найдите наибольшее из таких чисел и их сумму. Гарантируется, что искомая сумма не превосходит 107.
2) Рассматривается множество целых чисел, принадлежащих числовому отрезку [3712; 8432], которые удовлетворяют следующим условиям:
− запись в двоичной и четверичной системах счисления заканчивается одинаковой цифрой;
− кратны, по крайней мере, одному из чисел: 13, 14 или 15.
Найдите количество таких чисел и минимальное из них.
3)Рассматривается множество целых чисел, принадлежащих числовому отрезку [3439; 7410], которые удовлетворяют следующим условиям:
− запись в двоичной и шестеричной системах счисления заканчивается разными цифрами;
− кратны, по крайней мере, одному из чисел: 9, 10 или 11.
Найдите количество таких чисел и максимальное из них.
Размерность массива — это количество индексов, необходимое для однозначной адресации элемента в рамках массива[2][3]. Форма или структура массива — сведения о количестве размерностей и размере (протяжённость) массива для каждой из размерностей[4]; может быть представлена одномерным массивом[5].
В языке программирования APL массив является основным типом данных (при этом нуль-мерный массив называется скаляром, одномерный — вектором, двумерный — матрицей)[5].
var
a,b,c:integer;
begin
writeln('Введите три числа: ');
readln(a,b,c);
if (a>b)and(a>c) then writeln('Первое число наибольшее')
else if (a<b)and(a<c) then writeln('Первое число наименьшее')
else writeln('Первое число со средним значением');
if (b>a)and(b>c) then writeln('Второе число наибольшее')
else if (b<a)and(b<c) then writeln('Второе число наименьшее')
else writeln('Второе число со средним значением');
if (c>a)and(c>b) then writeln('Третье число наибольшее')
else if (c<a)and(c<b) then writeln('Третье число наименьшее')
else writeln('Третье число со средним значением');
end.
Проверил на Паскале