ответ 3) Объяснение. НЕ ( x < 6 ) это x >= 6.Получаем x>= 6 или (x < 5 и x >= 4). true это правда. false это ложь. И(Конъюнкция) это логическая операция,которая возвращает true если обе части уравнения равны true. Или(Дизъюнкция) это логическая операция,которая возвращает false когда обе части уравнения равны false. Итак, нам нужно чтобы обе части уравнения были false. Вариант 1 сразу не подходит,т.к. 7 больше 6. Вариант 2 тоже не подходит,потому что 6 = 6. Вариант 3 подходит. Вариант 4 не подходит,ведь 4 не меньше 5.
Если число кратно 7 и 9 одновременно, то оно кратно и их произведению, т.е. 63.
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018 Внимание! Если программа не работает, обновите версию!
begin var (a,b):=ReadInteger2('Введите границы интервала'); if a>b then Swap(a,b); var m:=a mod 63; if m>0 then a:=a+63-m else if m<0 then a:=a-m; var s:=Range(a,b,63); Writeln('На интервале для чисел, кратных 7 и 9 одновременно:'); Writeln('Количество ',s.Count,', сумма ',s.Sum,', произведение ', s.Aggregate(BigInteger(1),(p,q)->p*q)) end.
Пример Введите границы интервала 613 2100 На интервале для чисел, кратных 7 и 9 одновременно: Количество 24, сумма 32508, произведение 365675480699261550432828460140720056759879856012024400651039614959616000000
Объяснение.
НЕ ( x < 6 ) это x >= 6.Получаем x>= 6 или (x < 5 и x >= 4).
true это правда.
false это ложь.
И(Конъюнкция) это логическая операция,которая возвращает true если обе части уравнения равны true.
Или(Дизъюнкция) это логическая операция,которая возвращает false когда обе части уравнения равны false.
Итак, нам нужно чтобы обе части уравнения были false.
Вариант 1 сразу не подходит,т.к. 7 больше 6.
Вариант 2 тоже не подходит,потому что 6 = 6.
Вариант 3 подходит.
Вариант 4 не подходит,ведь 4 не меньше 5.
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите границы интервала');
if a>b then Swap(a,b);
var m:=a mod 63;
if m>0 then a:=a+63-m
else if m<0 then a:=a-m;
var s:=Range(a,b,63);
Writeln('На интервале для чисел, кратных 7 и 9 одновременно:');
Writeln('Количество ',s.Count,', сумма ',s.Sum,', произведение ',
s.Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
Введите границы интервала 613 2100
На интервале для чисел, кратных 7 и 9 одновременно:
Количество 24, сумма 32508, произведение 365675480699261550432828460140720056759879856012024400651039614959616000000