//Pascal
var
X, Y, z: real;
begin
write('X = ');
readln(X);
write('Y = ');
readln(Y);
if x <= y then
z := x + y
else
z := 1 - x + y;
writeln('z = ', z);
end.
13. 1. Paint.
Ответ: Paint.
по риснку увиидшь - то что в середине - это объединение и пересечение множеств
Const
s='информатика';
var
s1:string;
begin
s1:=s; Delete(s1,1,2); Delete(s1,7,3);
Writeln(s1);
s1:=s; Delete(s1,1,1); Delete(s1,2,1); Delete(s1,3,3); Delete(s1,4,2);
Writeln(s1)
end.