Для числа 3.
(3 > 1)=1(истина))
(3 > 2)=1(истина)
(3 = 3) = 1(истина)
1 ∧ 1 ∧ 1 = 1 * 1 * 1 = 1(истина)
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
Щас бы университетские вопросы задавать на сайте для школьников :D
Ответ:
program numab;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
<span>V=K*I,</span><span>где V -
информационный объем рисунка (файла), К - общее количество точек рисунка
или разрешающая способность монитора, I <span>-
глубина цвета. И ещё на будующие 1366 и 768 это просто цифры а 1366х768 точек это уже совсем другое</span></span>