Var a,b,c:real;
begin
writeln('Введите значения A,B:');
readln(a,b);
c:=a+b;
writeln('Ответ:',c:4:2);
end.
==== PascalABC.NET =====
begin
var (x1, y1) := ReadReal2('Координаты х и у вершины 1:');
var (x2, y2) := ReadReal2('Координаты х и у вершины 2:');
var (x3, y3) := ReadReal2('Координаты х и у вершины 3:');
Print('Площадь треугольника равна',
0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))
end.
Предыдущее счастливое время 15:51
так что прошло 4 часа и 13 минут
Здесь надо посчитать в процентах но вот есть сомнения а или б если я угадаю одну из шапок там будут все синие то есть 50%
а там вероятность того что выпадет меньше
Правильный вариант Б)