НАЧАЛО. sum=0 m=10 k=0
k《5.Да k=k+1 sum=k+m m=m-2.
КОНЕЦ .
3. program n3;
uses crt;
var b:integer;
begin
write('Введите число ');
read(b);
writeln(b);
<span>end.
4. </span>program n4;
uses crt;
var c:real;
begin
write('Введите число ');
readln(c);
c:=c*2;
writeln('Ответ равен 'c);
<span>end.
5. </span>program n5;
uses crt;
var y,z,x:real;
begin
write('Введите число ');
readln(x);
y:=5.5;
z:=x-y;
writeln('Ответ равен 'z);
<span>end.
6. </span>program n6;
uses crt;
var y,x,z:real;
begin
write('Введите число ');
readln(x);
y:=2.5;
z:=x/y;
writeln('Ответ равен 'z);
<span>end.</span>
Можно уменьшить отступы(сверху, снизу), межстрочный интервал, убрать лишние переходы на новую строку, сменить шрифт на более компактный, изменить размер шрифта
Ответ:
Если забить на указания к решению, можно сделать так:
записываешь уравнение прямой для каждой из сторон
для каждой из сторон можно по формуле вычислить расстояние от данной точки до этой прямой и
взять минимальное значение.
Канонической уравнение прямой на плоскости:
A*x+B*y+C=0
Уравнение прямой через точки A и B:
Параметрической (в векторном виде) :
P=A+(B-A)*t
В скалярной форме:
x=x0+ax*t
y=y0+bx*t
Из этой системы, избавляясь от t, получим каноническое уравнение прямой.
Формула расстояния от точки (x0; y0) до прямой A*x+B*y+C=0:
ro=abs(A*x0+B*y0+C)/sqrt(A^2+B^2)
Объяснение: