var
x:integer;
begin
readln(x);
if x>0 then
writeln(1)
else if x<0 then
writeln(-1)
else
writeln(0);
end.
Не очень понятны исходные формулы. Но, скорее всего, имеется в виду следующее:
1. y = (7*x*x-8*x-1)/(5*x+4)
2. y = sqr(cos(x))/4-sqr(sin(abs(x+y)))
Program Primer;
var
i: Integer;
b:Boolean;
begin
Write('Введите число: ');
ReadLn(i);
if ((i<-99) and (i>-1000)) or ((i>99) and (i<1000))
then b:=true;
WriteLn(b);
end.
#include <stdlib.h> //Библиотека для рандома#include <ctime>
#define MAX_SIZE_M 10#define MAX_SIZE_N 10#define MAX_RAND 100#define MIN_RAND 1
void main(){ int a[MAX_SIZE_N][MAX_SIZE_N];// объявили массив srand(time(NULL)); //Заполнение массива for(int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) a[i][j] = MIN_RAND + rand() % MAX_RAND;
int sum = 0; //Считаем сумму for (int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) if (a[i][j] % 2 == 1) { sum += a[i][j] * a[i][j]; } }
1. <span>(число <75) И НЕ (число чётное)
46: </span>(46<75) И НЕ (46 чётное) ⇒ Истина И Ложь ⇒ Ложь
53: (53<75) И НЕ (53 чётное) ⇒ Истина И Истина ⇒ Истина
80: (80<75) И НЕ (80 чётное) ⇒ Ложь И Ложь ⇒ Ложь
99: (99<75) И НЕ (99 чётное) ⇒ Ложь И Истина ⇒ Ложь
Ответ: <span>2) 53
2. </span><span>НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)
Пимен: </span>НЕ ("П" согласная) ИЛИ НЕ ("н" гласная) ⇒ Ложь ИЛИ Истина ⇒ Истина<span>
Кристина: </span>НЕ ("К" согласная) ИЛИ НЕ ("а" гласная) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
Ирина: </span>НЕ ("И" согласная) ИЛИ НЕ ("а" гласная) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
Александр: </span>НЕ ("А" согласная) ИЛИ НЕ ("р" гласная) ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>2) Кристина
3. </span><span>НЕ (число > 30) ИЛИ (число нечётное)
28: </span>НЕ (28 > 30) ИЛИ (28 нечётное) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
34: </span>НЕ (34 > 30) ИЛИ (34 нечётное) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
17: </span>НЕ (17 > 30) ИЛИ (17 нечётное) ⇒ Истина ИЛИ Истина ⇒ Истина<span>
45: </span>НЕ (45 > 30) ИЛИ (45 нечётное) ⇒ Ложь ИЛИ Истина ⇒ Истина
Ответ: 2) 34