Ответ:
10
Объяснение:
Сложные высказывания, содержащие общее отрицание, полезно вначале преобразовывать, используя правило де-Моргана.
НЕ( (x ≥ 12) ИЛИ (x ПРОСТОЕ) )
НЕ(x ≥ 12) И НЕ(x ПРОСТОЕ)
Теперь "НЕ" имеют простые высказывания, выполним их инверсию (отрицание).
(x < 12) И (x НЕ ПРОСТОЕ)
Итак, нужно найти наибольшее число, для которого верно (истинно) полученное высказывание. Поскольку число меньше 12, будем рассматривать ряд чисел 11, 10, 9, ... и выберем первое встретившееся число, не являющееся простым. 11 - простое, а вот 10 - нет, оно имеет делители 2 и т.д. Поэтому ответ - 10.
//Pascal ABC
//Вывод чисел кратных 3 на промежутке от 0 до 50
var
i:integer;
begin
for i:=0 to 50 do begin
writeln(i);
i:=i+2;
end;
end.
Program summa;
uses crt;
const N =10;
var B:array[1..N] of integer;
s,i : integer;
begin
s:=0;
for i:=1 to N do
begin
write( 'B[ ' ,i, ']= ' ); readln(B[i]);
s:=s+B[i];
end;
writeln( 's=' ,s);
end.
, Первоначально (после первого цикла): A = 0 1 2 ... 10
Посмотрим, что делает второй цикл.
Заметим, что переменная k здесь бесполезна - ей присваивают какие-то значения, а потом ничего с ними не делают. Тогда про неё можно забыть. Остаётся только одна команда: A[i] = A[10-i]
Для i = 0, 1, 2, 3, 4 она просто заменяет A[i] на значение, симметричное относительно центра A[5]; A[0]=10, A[1]=9; A[2]=8; A[3]=7; A[4]=6.
С i=5 не происходит ничего: присвоение имеет вид A[5]=A[5]
Для последующих i опять A[i] меняется на симметричное. Но после i=4 массив и так "симметричен", так что все эти команды ничего не делают.
A = [10, 9, 8, 7, 6, 5, 6, 7, 8, 9, 10]
Сам tux paint
нажимаешь сохранить как
и нажимаешь сохранить в ту папку в которой тебе надо
