1. Составте программу для нахождения граммов G в X унциях (1 унция = 28,35 грамма). Исходное количиство граммов задается с клавиатуры. 2. Напишите программу нахождения длин медиан m1, m2 и m3 треугольника по указанным формулам. Длины сторон a, b и c задаются с клавиатуры. m1 = ... m2 = ... m3 = ...

Const

x = 28.35;

var

g : Real;

begin

Write ('Введите кол-во граммов: ');

ReadLn (g);

Writeln (g:0:3, ' грамм = ', g/x:0:3, ' унций.');

Readln;

end.

2:

var

a, b, c : Integer;

m : Real;

begin

Write ('Введите сторону a: ');

ReadLn (a);

Write ('Введите сторону b: ');

ReadLn (b);

Write ('Введите сторону c: ');

ReadLn (c);

m : = sqrt (2*sqr (b) + 2*sqr (c) - sqr (a)) / 2;

Writeln ('Медиана к стороне a = ', m:0:3);

m : = sqrt (2*sqr (a) + 2*sqr (c) - sqr (b)) / 2;

Writeln ('Медиана к стороне b = ', m:0:3);

m : = sqrt (2*sqr (a) + 2*sqr (b) - sqr (c)) / 2;

Writeln ('Медиана к стороне с = ', m:0:3);

Readln;

end.