// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=4; var xp:=new real[n]; var yp:=new real[n]; Writeln('Введите парами координаты четырех вершин'); for var i:=0 to n-1 do Read(xp[i],yp[i]); var (x,y):=ReadReal2('Введите координаты точки:'); var (i,j,c):=(0,n-1,False); while i<n do begin if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i])) and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c; j:=i; i+=1; end; if c then Writeln('Внутри') else Writeln('Не внутри') end.
{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5} program zadacha; vara: array[1..255] of byte;i,n,k: integer; beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end; k:=0;writeln();for i:=1 to n do begin if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then begin k:=k+1; write(a[i]:6); end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.
ответ: - 4.
Объяснение:
Найдем значение выражения 5 * m - 3 * n, если m = - 2/5 и n = 2/3.
Для того, чтобы найти значение выражения, нужно известные значения подставить в само выражение и вычислить его значение. То есть получаем:
5 * m - 3 * n = 5 * (- 2/5) - 3 * 2/3 = - 5 * 2/5 - 3 * 2/3;
Сначала в порядке очереди вычисляем умножение или деление, потом проводятся действия сложения или вычитания. То есть получаем:
- 5 * 2/5 - 3 * 2/3 = - 1 * 2/1 - 1 * 2/1 = - 2 - 2 = - 4;