Если на паскале, то
var
x: integer;
y: real;
begin
readln(x);
if x < 0 then
y := x*x+5*x
else
y := sqrt(x+6);
writeln(y);
<span>end.
Если в виде блок-схемы, то прикрепил картинку</span>
Var R,x,y : real; k,i: integer;
begin
write('R='); readln(R);
k:=0;
for i:=1 to 3 do
begin
write('x = '); readln(x);
write('y = '); readln(y);
if sqrt(x*x+y*y)<=R then k:=k+1;
end;
writeln('В круг попали ',k,' точек');
<span>end.</span>
Какое значение будет принимать переменная Х, после выполнения фрагмента программы: 17
Var a,b,c:integer;
begin
writeln('Вычесление периметра треугольника.');
writeln('Введите значение стороны a.');
readln(a);
writeln('Хорошо. Вы ввели значение для a: ',a);
writeln('Введите значение стороны b.');
readln(b);
writeln('Хорошо. Вы ввели значение для b: ',b);
writeln('Введите значение стороны c.');
readln(c);
writeln('Хорошо. Вы ввели значение для c: ',c);
if a<0 then
writeln('Данный треугольник не существует')
else
if b<0 then
writeln('Данный треугольник не существует')
else
if c<0 then
writeln('Данный треугольник не существует')
else
if a+b<c then
writeln('Данный треугольник не существует')
else
if a+c<b then
writeln('Данный треугольник не существует')
else
if b+c<a then
writeln('Данный треугольник не существует')
else
writeln('Периметр треугольника: ',a+b+c);
end.