5. 6. В каких логических операци суждения? 1. Составьте таблицы истинности для следующих логических суждений: 1. B& (AV В); 2. A& (AvВvc); 3. A& BV1 С; 4. (Ay B) &7 А; 5. В(7 CvD)&A; 6. 7 (A&B=>С) v (B=>СуЈА). 2. Определите истинность логического выражения (CVB)=>В)&(A&B) =>В.
var a,b,c:integer;
begin
writeln (' введите число');
readln(a);
b:=a mod 10;
a:=a div 10;
c:=a mod 10;
a:=a div 10;
if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть')
else writeln('таких чисел нет');
end.
zadacha_2;
var a:integer;
begin
writeln(' введите время в минутах');
readln(a);
a:=a mod 10;
if ((a >= 0) and (a <= 3)) or ((a > 5) and (a <= 8)) then writeln('зелёный');
if ((a > 3) and (a <= 5)) or ((a > 8) and (a < 0)) then writeln('жёлтый');
end.