Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.
Смотри на клавиатуре у тебя есть клавиши, ты с помощью них сможешь выполнить любую информацию, и компьютер его выполнит, сейчас я тебе скину комбинацию клавиш и ты их запомнишь, я сейчас тоже изучаю информатику и могу тебе подсказать.
Ctrl Alt Delete - это комбинация которая позволит открыть меню где ты можешь открыть любую информацию на компьютере
Delete - это комбинация на клавитуре, при выделении файла чтобы лишний раз не нажимать мышкой, просто нажми Delete и файл переместит автоматически в корзину
Printscreen - эта клавиша используется, для того чтобы например в играх сделать скриншот, или при использовании программы Ножницы.
Ctrl P - это комбинация, служит для вызова окна для печати, для этого следует подключить принтер и нажать кнопку Печатать.
Кнопка Windows - системная клавиша оно вызывает меню системы Пуск, чтобы его открыть нажми кнопку Windows, если ты его хочешь открыть заново снова нажми эту кнопку
Alt F4 - комбинация позволяет закрыть окно, если тебе нужно куда нибудь сходить например погулять или еще что-то просто закрой окно и иди куда захотел.
Надеюсь что ты это причитал, пока
Ответ: 98
Объяснение: 9 - нечетная, 98 нацело не делится на 3
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10);
Writeln('Cотни ',s,', десятки ',d,', единицы ',e);
Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e);
Writeln('Справа налево: ',100*e+10*d+s);
Writeln('Перестановка сотен в конец: ',100*d+10*e+s)
end.
<u>Пример</u>
328
Cотни 3, десятки 2, единицы 8
Сумма цифр 13, их произведение 48
Справа налево: 823
Перестановка сотен в конец: 283
Для приведения к СКНФ необходимо построить таблицу истинности, выбрать из нее строки, где функция принимает нулевое значение, а затем записать конъюнкции всех таких строк, где каждым элементом будет дизъюнкция переменных, взятых с инверсией.
<u>Перевожу на простой язык.</u>
Ищем в таблице истинности строки со значением функции, равным 0.
Для каждой такой строки берем переменные (обозначим переменную Р), и там где в колонке для Р записан 0, пишем Р, а где единица, пишем ¬Р.
Все эти Р для одной строки соединяем через ∨ и заключаем в круглые скобки. Так повторяем для каждой нулевой строки. Между скобками пишем ∧
Результаты даны во вложениях.
