Задача 1
var
x1, y1, x2, y2, l: real;
begin
Writeln('Введите значения (x1,y1,x2,y2)');
Read(x1, y1, x2, y2);
l := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));
Writeln('Расстояние: ', l:3:2);
end.
Тестовое решение:
Введите значения (x1,y1,x2,y2)
2 3 4 5
Расстояние: 2.83
Задача 2
var
a, b, c, p, s: real;
begin
Writeln('Введите ABC');
Read(a, b, c);
P := (a + b + c)/2;
S := Sqrt(p * (p - a) * (p - b) * (p - c));
Writeln('Площадь по Герону: ', S:3:2);
end.
Тестовое решение:
Введите ABC
2 3 4
Площадь по Герону: 2.90
1) 145 (10 сс) - 10010001 (2 сс)
145 (10 сс) - 221 (8 сс)
145 (10 сс) - 91 (16 сс)
2) 854 (10 сс) - 1101010110 (2 сс)
854 (10 сс) - 1526 (8 сс)
854 (10 сс) - 356 (16 сс)
Объяснение:
145 (10 сс) - 10010001 (2 сс)
145 делим в столбик на 2 без остатка. 145/2=72 (145-144=1), далее 72/2=36 (72-72=0), 36/2=18 (36-36=0), 18/2=9 (18-18=0), 9/2=4 (9-8=1), 4/2=2 (4-4=0), 2/2=1 (2-2=0). Записываем в обратном порядке полученные цифры: 10010001.
145 (10 сс) - 221 (8 сс)
145 делим в столбик на 8 без остатка. 145/8=18 (145-144=1), 18/8=2 (18-16=2). Записываем в обратном порядке полученные цифры: 221
145 (10 сс) - 91 (16 сс)
145 делим в столбик на 16 без остатка. 145/16=9 (145-144=1).
Записываем в обратном порядке полученные цифры: 91