Правильный ответ 3)<span> (¬A ^ ¬B) ^ ¬C
</span>
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
Ответ:
0
Объяснение:
Любое число при умеожении на 0 даёт 0. Следовательно неважно какие числа будут стоять на месте букв, ведь в конце они все равно будут умножены на 0
35 = 2^i
i = 6 бит - 1 символ
10*6 = 60 бит информации
1) <u>Определение теплоты</u> <u>
</u><u />Var q,i,rt:real;
Begin
Write('i='); readln(i);
Write('Rt='); readln(rt);
q:=(i*i)*rt;
Writeln('Q=',q);
End.
2) <u>Площадь треугольника</u>
Var s,p,a,b,c:real;
Begin
Write('A='); readln(a);
Write('B='); readln(b);
Write('C='); readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
s:=sqrt(s);
Writeln('S=',s);
End.
3)<u>Массив</u>
Var mas:array[1500..3700] of integer;
i,n:integer;
Begin
for i:=1500 to 3700 do begin
mas[i]:=i;
if (mas[i] mod 206 = 0) then writeln(mas[i]);
end;
end.