Begin
var fi_min:=ReadlnReal('fi_min=');
var fi_:=ReadlnReal('fi_=');
var fi_max:=ReadlnReal('fi_max=');
var S_min:=ReadlnReal('S_min=');
var S_max:=ReadlnReal('S_max=');
var L:=ReadlnReal('L=');
var W:=ReadlnReal('W=');
var alpha:=ReadlnReal('alpha=');
var betta:=ReadlnReal('betta=');
var a, b:real;
var x,y:real;
var T_max:real;
var S:real;
y:=(S_max**2-S_min**2)/(cos(alpha+betta+fi_min)-cos(alpha+betta+fi_max));
x:=S_min**2+y*cos(alpha+betta+fi_min);
a:=((x+y)**(1/2)+(x-y)**(1/2))/2;
b:=((x+y)**(1/2)-(x-y)**(1/2))/2;
S:=(a**2+b**2-2*a*b*cos(alpha+betta+fi_))**(1/2);
T_max:=(W*L*S)/(a*b*sin(alpha+betta));
Println(a, b);
Println(T_max);
end.
Здесь встречаются три вида операций: конъюнкция (∧), дизъюнкция (∨) и отрицание (¬).
Конъюнкция - логическое умножение. Даёт результат 1, если оба операнда равны единицы, 0 - в остальных случаях:
1∧1=1
1∧0=0
0∧0=0
Дизъюнкция - логическое сложение. Даёт 1, если хотя бы один из операндов равен единице, 0 - если оба операнда равны нулю:
1∨1=1
1∨0=1
0∨0=0
Отрицание даёт 0, если операнд равен единице, и наоборот:
¬1=0
¬0=1
Таким образом, ответ на эту задачу: c b a.
Var a,amax:integer;
begin
writeln('Введите положительное число');
read(a);
amax:=a;
while a<>0 do
begin
if (a>amax) and (a>0) then amax:=a;
read(a);
end;
writeln('Максимальное число равно ',amax);
end.<span>
</span>
Using System;
public class ArrayProg
{
static int[] minmax(int[] a, int s)
{
int min = a[0], max = a[0];
for (int i = 1; i < s; i++)
{
if (a[i] < min) min = a[i];
if (a[i] > max) max = a[i];
}
int[] r = new int[2];
r[0] = min;
r[1] = max;
return r;
}
public static void Main()
{
Console.Write("Размер массива: ");
int n = Convert.ToInt32(Console.ReadLine());
int[] arr = new int[n];
for (int i = 0; i < n; i++)
{
Console.Write("#{0} = ", i);
arr[i] = Convert.ToInt32(Console.ReadLine());
}
int[] mm = minmax(arr, n);
float sa = (mm[0] + mm[1]) / 2;
int s = 0;
for (int i = 0; i < n; i++)
{
if (arr[i] > sa) s++;
}
Console.WriteLine("Ответ: {0}", s);
}
}
Линейка семейства Windows NT:
<span>· </span>Windows NT 3.1
<span>· </span>Windows NT 3.5
<span>· </span>Windows NT 3.51
<span>· </span>Windows NT 4.0
<span>· </span>Windows 2000 – 5.0
<span>· </span>Windows XP – 5.1
<span>· </span>Windows Server 2003 – 5.2
<span>· </span>Windows Vista, Windows Server 2008 – 6.0
<span>· </span><span>Windows 7, Windows Server 2008 R2 – 6.1</span>
