==== 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.
Информатика- это знания получаемые вами в школе ; сведения которые вы черпаете из книг , телепередач ; новости которые вы слушите от других людей , радио
<em />
Итак. В данном алгоритме цикл повторится ровно 4 раза.
z=1; x=51;
1 итерация (i=0): z=(z+x/2)/2=(1+51/2)/2=13.25
2 итерация (i=1): z=(z+x/2)/2=(13.25+51/2)/2=19.375
3 итерация (i=2): z=(z+x/2)/2=22.4375
4 итерация (i=3): z=(z+x/2)/2=23.96875
При округлении до десятых результат будет округлен в большую сторону, а 23.9+0.1=24.
Ответ: 24