Var a,b,c,d:Real;
T:Boolean;
Begin
randomize;
a:=random(50);
b:=random(50);
c:=random(50);
d:=random(50);
writeln('A=',a,' ','B=',b,' ' 'C=',c,' ','D=',d);
T:=(a<b)and(a<c)and(a<c)and(d>a)and(d>b)and(d>c);
writeln(T);
End.
Фрегат | Эсминец - это все вместе, т.е. эсминцы + фрегаты.
Либо можно назвать это объединением. Таким образом два круга будут закрашены.
Фрегат & Эсминец - это их общая часть. Таким образом будет закрашена середина двух кругов.
Чтобы найти Эсминцы нужно 3400 - 2100 = 1300
Program P;
Var
n, i : Integer;
max, iMax: Integer;
Begin
Write('Enter 10 numbers ');
for i := 1 to 10 do
Begin
Read(n);
if i = 1 then
Begin
max := n;
iMax := i;
End
else
if n > max then
Begin
max := n;
iMax := i;
End;
End;
WriteLn('Max = ', max);
WriteLn('index = ', iMax);
ReadLn;
End.
Текстовые файлы можно изменять и удалять