ребусы: 1 - я извени не знаю, 2- паблик 3- браузер 4- тоже не знаю
Объяснение:
задача : 1)из (14) наливаем в (5)
2)из (5) наливаем в (9)
3)повторяем пункт 1
4)из (5) наливаем в (9) остается 1л
5)переливаем из (9) в (14)
6)выливаем 1л из (5) в (9)
7)из (14) наливаем в (5)
8)из (5) наливаем в (9)
в битоне(9) находится 6л молока
9)из (14) наливаем в (5)
10)из (5) наливаем в (9)
в битоне (5) остается 2л молока
11)переливаем из (9)в (14)
12)наливаем в (9) 2л молока из (5)
13)из (14) наливаем в (5)
14)из (5) переливаем в (9)
ребусы: 1 - я извени не знаю, 2- паблик 3- браузер 4- тоже не знаю
Объяснение:
задача : 1)из (14) наливаем в (5)
2)из (5) наливаем в (9)
3)повторяем пункт 1
4)из (5) наливаем в (9) остается 1л
5)переливаем из (9) в (14)
6)выливаем 1л из (5) в (9)
7)из (14) наливаем в (5)
8)из (5) наливаем в (9)
в битоне(9) находится 6л молока
9)из (14) наливаем в (5)
10)из (5) наливаем в (9)
в битоне (5) остается 2л молока
11)переливаем из (9)в (14)
12)наливаем в (9) 2л молока из (5)
13)из (14) наливаем в (5)
14)из (5) переливаем в (9)
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.