1. Напишите программу вычисления расстояния между двумя точками плоскости. 2. Напишите программу вычисления площади боковой поверхности куба. 3. Напишите программу вычисления площади и гипотенузы прямого треугольника, если известны его катеты. 4. Напишите программу вычисления суммы модулей трех трех вещественных чисел.

1. program zz1;

var x1, x2, y1, y2, rast : real; / / задаем переменные не целого типа

begin

read (x1, y1, x2, y2);

rast:=sqrt (sqr (x1-x2) + sqr (y1-y2));

write (' расстояние между точками = ', rast); / /выводим ответ

end.

2. program zz1;

var a, s:integer; / / задаем переменные целого типа

begin

read (a);

s:=sqr (a);

write (' площадь боковой поверхности куба = ', s); / /выводим ответ

end.

3. program zz1;

var a, s, b, c:real; / / задаем переменные не целого типа

begin

read (a, b);

c:=sqrt (sqr (a) + sqr (b));

s:=a * b/2;

writeln (' площадь прямоугольного треугольника = ', s); / /выводим ответ

writeln (' гипотенуза = ', c);

end.

4. program zz1;

var a, s, b, c:real; / / задаем переменные не целого типа

begin

read (a, b, c);

s:=abs (a) + abs (b) + abs (c);

writeln (' сумма модулей трех чисел = ', s); / /выводим ответ

end.