procedure sorts(var ars:tys;n1:integer); Var i,j:integer; c:string; begin for i:=1 to n1-1 do for j:=i to n1 do if ars[i]>ars[j] then begin c:=ars[i]; ars[i]:=ars[j]; ars[j]:=c; end; end; begin readln(s); j:=1; while pos(' ',s)<>0 do begin for i:=1 to pos(' ',s) do ars[j]:=ars[j]+s[i]; delete(s,1,pos(' ',s)); inc(j); end; ars[j]:=s; sorts(ars,j+1); writeln('Result='); for i:=1 to n do writeln(ars[i]); end.
1)
a) (X = Y) И (Y = Z)
б) ((X = Y) И (Y != Z)) ИЛИ ((X = Z) И (Z != Y)) ИЛИ ((Y = Z) И (Z != X))
!= - "не равно"
в) (X > 0) И (Y > 0) И (Z > 0)
г) ((X > 0) И (Y > 0) И (Z < 0)) ИЛИ ((X > 0) И (Y < 0) И (Z > 0)) ИЛИ ((X < 0) И (Y > 0) И (Z > 0))
(X*Y*Z>0) И (X<0 ИЛИ Y<0 ИЛИ Z<0)
д) (X < Y) И (Y < Z)
2)
а) (X = Y) and (Y = Z)
б) ((X = Y) and (Y <> Z)) or ((X = Z) and (Z <> Y)) or ((Y = Z) and (Z <> X))
в) (X > 0) and (Y > 0) and (Z > 0)
г) ((X > 0) and (Y > 0) and (Z < 0)) or ((X > 0) and (Y < 0) and (Z > 0)) or ((X < 0) and (Y > 0) and (Z > 0))
(X*Y*Z > 0) and ((X < 0) or (Y < 0) or (Z < 0))
д) (X < Y) and (Y < Z)
Const
n=30;
type
tys=array[1..n] of string;
Var
ars:tys;
i,j:integer;
s:string;
procedure sorts(var ars:tys;n1:integer);
Var
i,j:integer;
c:string;
begin
for i:=1 to n1-1 do
for j:=i to n1 do
if ars[i]>ars[j] then
begin
c:=ars[i];
ars[i]:=ars[j];
ars[j]:=c;
end;
end;
begin
readln(s);
j:=1;
while pos(' ',s)<>0 do
begin
for i:=1 to pos(' ',s) do
ars[j]:=ars[j]+s[i];
delete(s,1,pos(' ',s));
inc(j);
end;
ars[j]:=s;
sorts(ars,j+1);
writeln('Result=');
for i:=1 to n do writeln(ars[i]);
end.
Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный