Var a:array[1..10] of integer;
i,m,k,p:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(-10,10);
write(a[i]:3);
end;
writeln;
read(k,m);
for i:=k to (k+m) div 2 do begin
p:=a[i];
a[i]:=a[k+m-i];
a[k+m-i]:=p;
end;
for i:=1 to 10 do
write(a[i]:3);
<span>end.</span>
Ответ:
70
Объяснение:
Дано условие "не (х<=71) или (х не делится на 7)" и требуется его ложность. Добавим к нему отрицание и будем искать истинность:
не (не (х<=71) или (х не делится на 7))
По закону де-Моргана избавимся от внешнего отрицания:
(х<=71) И НЕ (х не делится на 7), что равносильно
(х<=71) И (х делится на 7)
Итак, нужно найти такое наибольшее число, которое кратно 7 и не превышает 71.
71 не кратно 7, а следующее меньшее, 70 - кратно. Это и есть ответ.
<span>Дана последовательность чисел А длины N. Требуется вывести в обратном порядке.
Первая строка входного файла содержит целое число N (1 <= N <= 1000000) - длину
последовательности. Вторая строка входного файла содержит N целых чисел - элементы
последовательности A. Все элементы последовательности не превосходят 100000 по
абсолютному значению.
В единственной строке выходного файла выведите элементы последовательности A в
обратном порядке. Для наглядности обратите внимание на примеры.
a in 3 a out 321
123
4 a out
1231 1321</span>