//Это экспериментальное решение, не воспринимайте всерьёз
var ar:array[1..15] of integer;
i:integer;
begin;
var i1:=1;
while i1<=15 do
begin;
var ar1:=ArrRandomInteger(4,1,20);
sort(ar1);
ar[i1]:=ar1[1];
ar[i1+1]:=ar1[2];
ar[i1+2]:=ar1[3];
writeln(ar1[1]:4,ar1[2]:4,ar1[3]:4);
i1:=i1+3;
end;
writeln('Final array:');
for i:=1 to 15 do
write(ar[i]:4);
<span>end.</span>
Const n = 12;
var m :array [1..n] of integer; i, kol, sum :integer;
begin
randomize; for i:= 1 to n do m[i]:= random(100)-50; sum:= 0; kol:= 0; for i:= 1 to n do begin if m[i] = 0 then inc(kol); if m[i] < 1 then sum:= sum + m[i]; end; writeln('Количество нулевых элементов: ',kol); writeln('Сумма элементов, меньших 1: ',sum);
<span>end.</span>
Раскрываем по степени вложенности.
(x<0) or (y<0) = true or false = true
true and (z<-2) = true and false = false
not(false) = true
true and D = true and true = true
Ответ: true.
10101<span> + 111001</span><span> = 1001110</span>
Var x,y : real;
function F(x:real):real;
begin
if x>0 thenF:=(x*x*x-(5*x))/18
else
F:=(x*x-(6*x))+15;
end;
begin
read(x);
y:=F(x);
Writeln(y);
end.