Var x:real;
begin
readln(x);
if (x >= 0 and x <= 1)
then write(x * (x - 1))
else write(x * x - Sin(Pi * x * x));
end.
1.
<span>(число <20) и не ( число нечетное)
</span>(9 <20) и не (9 нечетное) ⇒ Истина и не Истина ⇒ Ложь
(18 <20) и не (18 нечетное) ⇒ Истина и не Ложь ⇒ Истина
(35 <20) и не (35 нечетное) ⇒ Ложь и не Истина ⇒ Ложь
(48 <20) и не (48 нечетное) <span>⇒ Ложь и не Ложь ⇒ Ложь
</span>Ответ: 2) 18
2.
<span>не (число >30) и ( число четное) или ( число меньше или равно 10)
</span>не (5 >30) и (5 четное) или (5 меньше или равно 10) ⇒
не Ложь и Ложь или Истина ⇒ Ложь или Истина ⇒ Истина
не (9 >30) и (9 четное) или (9 меньше или равно 10) <span>⇒ </span>
<span>не Ложь и Ложь или Истина ⇒ Ложь или Истина ⇒ Истина
</span>не (22 >30) и (22 четное) или (22 меньше или равно 10) <span>⇒ </span>
<span>не Ложь и Истина или Ложь ⇒ Истина или Ложь ⇒ Истина
</span>не (40 >30) и (40 четное) или (40 меньше или равно 10) <span>⇒ </span>
<span>не Истина и Истина или Ложь ⇒ Ложь или Ложь ⇒ Ложь
</span>Ответ: 1) 5; 2) 9; 3) 22
3.
<span>( число больше или равно 10) или ( число четное) или ( число меньше или равно 30)
</span>(7 больше или равно 10) или (7 четное) или (7 меньше или равно 30) ⇒
Ложь или Ложь или Истина ⇒ Истина
(20 больше или равно 10) или (20 четное) или (20 меньше или равно 30) ⇒
Истина или Истина или Истина <span>⇒ Истина
</span>(27 больше или равно 10) или (27 четное) или (27 меньше или равно 30) ⇒
Истина или Ложь или Истина <span>⇒ Истина
</span>(35 больше или равно 10) или (35 четное) или (35 меньше или равно 30) ⇒
Истина или Ложь или Ложь <span>⇒ Истина
Ответ: для всех приведенных чисел результат высказывания - Истина
</span>
4.
<span>(число >30) или не (число четное) и (число меньше или равно 10)
</span>(5 >30) или не (5 четное) и (5 меньше или равно 10) ⇒
Ложь или не Ложь и Истина ⇒ Ложь или Истина ⇒ Истина
(8 >30) или не (8 четное) и (8 меньше или равно 10) ⇒
Ложь или не Истина и Истина <span>⇒ Ложь или Ложь ⇒ Ложь
</span>(17 >30) или не (17 четное) и (17 меньше или равно 10) ⇒
Ложь или не Ложь и Ложь <span>⇒ Ложь или Ложь ⇒ Ложь
</span>(28 >30) или не (28 четное) и (28 меньше или равно 10) ⇒
Ложь или не Истина и Ложь <span>⇒ Ложь или Ложь ⇒ Ложь
Ответ:</span> 2) 8 3) 17 4) 28
5.
<span>не (первая буква согласная) или ( последняя буква гласная)
</span>не (С согласная) или (А гласная) ⇒ не Истина или Истина ⇒ Истина
не (С согласная) или (Н гласная) <span>⇒ не Истина или Ложь ⇒ Ложь
</span>не (А согласная) или (Т гласная) <span>⇒ не Ложь или Ложь ⇒ Истина
</span>не (А согласная) или (А гласная) <span>⇒ не Ложь или Истина ⇒ Истина
Ответ: </span><span>2) Слон
6.
</span>( последняя буква согласная) или ( первая буква гласная)
(А согласная) или (К гласная) ⇒ Ложь или Ложь ⇒ Ложь
(К согласная) или (Б гласная) <span>⇒ Истина или Ложь ⇒ Истина
</span>(Л согласная) или (О гласная) <span>⇒ Истина или Истина ⇒ Истина
</span>(А согласная) или (О гласная) <span>⇒ Ложь или Истина ⇒ Истина
Ответ: </span>1) Коза
Когда человек собирает сведения об окружающем мире, он собирает информацию. Эта информация, накапливаясь тысячелетиями, сохраняется в виде примет, личного опыта. Фундаментальные знания о природе, связанные с наблюдением за ней, легли в основу таких наук как физика, химия, биология, геология и смежных с ними современных учениях. Ответом на вопрос станет только одно слово - информация.
Так это же бред, тут же все рандомно! тут не бужет конкретного решения..
Программа может выглядеть так:
program Func;
uses Crt;
var a,b: integer;
rez, fa, fb: integer;
begin ;
ClrScr;
a:=4;
b:=-5;
fa:=3*sqr(a)+4*a-5;
fb:=3*sqr(b)+4*b-5;
Rez:=fa+fb;
WriteLn('f(4)=', fa);
WriteLn('f(5)=', fb);
WriteLn('f(4)+f(5)=', Rez);
ReadLn;
end.
,
