Ответ:
0
Объяснение:
(A∨N) & ¬(A∨N) = 0
Обозначив (A∨N) через B, можно написать B & ¬B, а это тождественно 0.
Программа в PascalABC
var
c, b, a, d, Z : Integer ;
begin
writeln('(c+4ba)d/2cb+(2a2c)') ;
writeln(' Введите значение с ') ;
readln(c) ;
writeln('Введите значение b') ;
readln(b) ;
writeln('Введите значение а') ;
readln(a) ;
writeln('Введите значение d') ;
readln(d) ;
Z:=((c+(4*b*a))*(d/(2*c*b))+(2*a*2*c)) ;
writeln('(c+4ba)d/2cb+(2a2c) =' , ' Z') ;
End.
Должно сработать
Про "виды" устройств не понятно, а основные устройства без которых компьютер не будет работать такие:
Процессор, материнская плата (на ней же BIOS, оперативная памятьи тд), жесткий диск, контроллер (хотя в данном случае может и не нужен, так как управляет внешними устройствами), блок питания
Этого достаточно, чтоб компьютер работал. А вот чтоб человек мог работать с компьютером еще необходимы устройства взаимодействия или ввода/вывода
<span>Хотя если компьютер является сервером, то достаточно сетевой платы</span>
Как-то так:
//fpc 3.0.0
program HelloWorld;
var
total: integer; // результат суммирования
ent, last: integer; // ввод, подсчет
begin
total := 0; // начальная сумма
// 30 можно поменять на любое число, чтоб цикл не шел вечно. А если надо вечно, то поменять условие на 1 < 2
while total <= 30 do
begin
// просим число
write('Enter number: ');
readln(ent);
// получаем только 4-х значные
if (ent < 1000) or (ent > 9999) then
Continue;
// берем последнюю цифру
last:= ent mod 1000;
last:= last mod 100;
last:= last mod 10;
// складываем
total:= total + last;
// выводим результат
writeln(total);
end;
end.
Результат можно посмотреть тут: https://rextester.com/ENTY66578
Допустим, Василий рыцарь. Но он сказал, что он лжец. Противоречие.
Допустим, Василий лжец. Тогда один из них рыцарь, а другой лжец (по словам Василия). Остается вариант, что Иван рыцарь. Противоречий нет.
<u>Ответ: Василий - лжец, а Иван - рыцарь</u>
