Выясните, равносильны ли следующие предикаты, если их рассматривать над множеством действительных чисел

Question 1

Accepted Answer

объяснение:

это не ноутбук не работает это ты скачал или на сайты заходил какиета иза этого у тебя всё зависает очисти ноут проверь если не неси к спциалисту

Question 2

Написать программу решения квадратного уравнения ax^2+bx+c=0 в паскале, !

Accepted Answer

Program yravnenie; Var a,b,c,D,x1,x2,p,q:Real;Begin Repeat  Write('a= ');  Readln(a);  if a=0 then writeln('Error: a=0. Enter another value'); Until a<>0; Write('b= '); Readln(b); Write('c= '); Readln(c); p:=b/a; q:=c/a; D:=Sqr(p/2)-q; If D>0 then  begin   Writeln('x1 = ',-p/2-Sqrt(D):0:5);   Writeln('x2 = ',-p/2+Sqrt(D):0:5);  end else If D=0 then  Writeln('x1 = x2 = ',-p/2:0:5) else  begin   Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);   Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);

Question 3

Дописать адрес своей улицы в солнечной системе: солнце,меркурий,венера, земля, марс, юпитер, сатурн, уран, нептун, плутон.

Accepted Answer

Моя улица в солнечной системе. Это Земля. Она находится третьей от солнца.

Question 4

Дан массив из четного числа элементов. поменять местами его половины

Accepted Answer

const N = 20; var A : array [1..N] of Integer; Pos, Sum, Znak : Integer; begin Write('Массив: '); Randomize; for Pos := 1 to N do begin A[Pos] := Random(101) - 50; Write(A[Pos]:4); end; WriteLn; for Pos := 1 to N div 2 do Sum := Sum + A[Pos] -A[N div 2 + Pos]; WriteLn('Разность между суммой 1-й половины и 2-й = ', Sum); end.

Question 5

Для записи текста использовался 256-символьный алфавит. каждая страница содержит 30 строк по 70 символов в строке. какой объем информации содержат 5 страниц текста?

Accepted Answer

256=2^8 8 бит на символ 30*70*5*8 = 84000 84000 : 8 = 10500 байт

Выясните, равносильны ли следующие предикаты, если их рассматривать над множеством действительных чисел

Информатика: новые вопросы