Регистрация
airflash1372
27.01.2021 10:14
Информатика
Есть ответ 👍

Проверьте, построив таблицы истинности, являются ли предложенные логические тождественно истинными(тавтологиями

131
336
Посмотреть ответы 1

Ответы на вопрос:

otere
otere
4,6(1 оценок)

PascalABC.Net

1)

begin

 var (x, y, z) := ReadInteger3('Введите 3 числа через пробел: ');

 Println(if (x + y + z) mod x = 0 then 'Делится без остатка' else 'С остатком');

end.

2)

begin

 Println('Среднее арифметическое: ', Range(10, 99, 1).Where(x -> x mod 2 = 0).Average);

end.

Популярно: Информатика