Задача 1:
var X,Y,tmp: double;
begin
writeln('Введите x');
readln(X);
writeln('Введите y');
readln(Y);
if (X<Y) then begin
tmp:=X;
X:=(X+Y)/2;
Y:=tmp*Y*2;
end
else begin
tmp:=Y;
Y:=(X+Y)/2;
X:=tmp*X*2;
end;
writeln('X=',X);
writeln('Y=',Y);
end.
Задача 6
var a,b,c,cnt: integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
cnt:=0;
if (a<0) then cnt:=cnt+1;
if (b<0) then cnt:=cnt+1;
if (c<0) then cnt:=cnt+1;
writeln('Кол-во отрицательных чисел: ',cnt);
end.
