<u><span>Три красных и один голубой!</span></u>
<span>Так как красных было больше чем голубых то слебовательно красных больше Двух. Тоесть или 3 или 4. Так как по условию мама купила не только шары красного цвета но и синего то заведомо хоть один синего цвета -> <span>3 красных и 1 голубой.</span></span>
№1. Блок схема только к 1 заданию!!!!!!!!!!!!!!!!!!!!!!!!
Program v1; Var S,M,A,B: integer; Begin
Write ('Введите А и В, через пробел: '); Readln (A,B); S := A + B; M := A * B;
Writeln ('S = ', S); Write ('M = ', M);
End.
№2.
Program v1; Var S,M,A,B: integer; Begin
Write ('Введите А и В, через пробел: '); Readln (A,B); if (A > B) then Write ('Число ',A,' больше числа ',B) else Write ('Число ',B,' больше числа ',a)
<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)
Объяснение:
Var
n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(n);
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.