var
N: 2..100;
a: array [1..100] of -1000..1000;
max1, max2, MaxPr, i, j: integer; {MaxPr - максимальное произведение, max1 и max2 - искомые числа}
function RangeOverfilling(Number: integer; Index: integer): integer; {Функция, возвращающая число в диапазон}
begin
if Number in [1..Index] then result := Number;
if Number > Index then result := Number mod Index;
if Number < 1 then result := Index + Number mod Index;
end;
begin
MaxPr:= -maxint; {Присваиваем максимальному проиведению начальное значение, равное максимальному числу типа integer, взятому со знаком -}
writeln('Введите N');
readln(N);
for i:= 1 to N do
begin
writeln('Введите целое число, по модулю не превышающее 1000');
readln(a[i]);
end;
for i:= 1 to N - 1 do
for j:= 1 to RangeOverfilling(N - i, N) do
if a[i] * a[i + j] > MaxPr then
begin
MaxPr:= a[i] * a[i + j];
max1:= a[i];
max2:= a[i + j];
end;
writeln('Пара чисел, дающих максимальное произведение: ', max1,' и ', max2);
end.
var
time: 0..23;
begin
writeln('Введите текущее время в часах');
readln(time);
if time in [0..6] then writeln('Спокойной ночи!');
if time in [7..12] then writeln('Доброго утра!');
if time in [13..18] then writeln('Доброго дня!');
if time in [19..23] then writeln('Доброго вечера!');
end.
Пояснение: в этой программе используются множества. Если время в часах входит в множество чисел, указанных в квадратных скобках, то программа пишет соответствующее сообщение. Например: if time in [0..6] означает: если введенное время входит в промежуток от 0 до 6.
X и Y =10
V=10*10*8=800бит