Здравствуйте решить эти задачи, желательно с объяснениями) 1 - Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m». Для какого наибольшего натурального числа А формула (¬ДЕЛ(x, А) ^ ДЕЛ(x, 6)) -> ¬ДЕЛ(x, 3)
тождественно истинна (то есть принимает значение 1 при любом натуральном значении переменной х)?
2 - Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m». Для какого наибольшего натурального числа А формула (¬ДЕЛ(x, А) ^ ДЕЛ(x, 15)) -> (¬ДЕЛ(x, 18) ↓ ¬ДЕЛ(x, 15))
тождественно истинна (то есть принимает значение 1 при любом натуральном значении переменной х)?
3 - Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m». Для какого наименьшего натурального числа А формула
(ДЕЛ(x, А) ^ ¬ДЕЛ(x, 16)) -> ДЕЛ(x, 23)
тождественно истинна (то есть принимает значение 1 при любом натуральном значении переменной х)?

Показать ответ

Ответ:

вика6010

05.01.2021 15:35

var //это ключевое слово показывает что началось объявление переменных
b, i:integer; //тут показали что переменные b, i типа integer т.е. целые
Summ:real; {тут показали что переменные Summ типа real т.е. дробная в ней будет хранится наша сумма}
begin // это слово показывает на начало выполнения программы
Summ := 0; //присваиваем начальное значение суммы
write('b = '); readln(b); //выводим на экран 'b = ' и считываем b
for i := 1 to b do {повторяем следующую операцию b раз причем каждый раз i будет увеличиваться на 1 изначально i присваивается 1}
Summ := Summ + i * i / 2; {присваиваем сумме ее же значение плюс сразу квадрат переменной i деленный на 2}
writeln('S = ', Summ); //выводим 'S = ' и за ним сразу значение суммы
readln; //ожидаем нажатия клавиши enter
end. //конец выполнения программы