Сайт с двумя страницами и ярким фоном... Да
А) а∧b=1∧0=0
б) а∧b∨c=1∧0∨1=0∨1=1
в) (а∨b)∧(c∨b)=(1∨0)∧(1∨0)=1∧1=1
г) а∨b=1∨0=1
д) а∨b∧с=1∨0∧1=1∨0=1
е) не(а∨b)∧(c∨b)=0∧1=0
ж) неа∨b=0∨0=0
и)неа∨b∧с=0∨0∧1=0∨0=0
к)не(а∧b∧c) =не(1∧0∧1)=не 0=1
<h2>Задание 1</h2>
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if x mod 2 = 0 then
- Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
- end.
<h2>Задание 2</h2>
Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if ((x > 9) or (x < -9)) then
- Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
- end.
Нет не может так как это бумага
Program chik;
var x,y:real;
begin
readln(x,y);
if ( (y<=0) and (x>=-1) and (x<=1) and (y>=-2) ) or
( (y>=0) and (x>=-1) and (x<=1) and (y<=1) and (x*x+y*y<=1))then
writeln('ПРИНАДЛЕЖИТ') else writeln('Не принадлежит');
<span>end.</span>