Составить программу Паскаль к задаче: 1)в 200 граммах воды растворили 25 грамм поваренной соли. найдите массовую долю соли в растворе? 2)вычислить площадь и периметр прямоугольного треугольника по заданным длинам двух катетов а и b

Предыдущий
вопрос Следующий
вопрос

Программа для задачи 1:

program SaltContent;
var
weightOfWater, weightOfSalt, massFraction: real;
begin
weightOfWater := 200;
weightOfSalt := 25;
massFraction := (weightOfSalt / (weightOfWater + weightOfSalt)) * 100;
writeln('Массовая доля соли в растворе: ', massFraction:0:2, '%');
end.

Программа для задачи 2:

program TriangleProperties;
var
a, b, c, area, perimeter: real;
begin
writeln('Введите длину катета a:');
readln(a);
writeln('Введите длину катета b:');
readln(b);
c := sqrt(a*a + b*b);
perimeter := a + b + c;
area := (a * b) / 2;
writeln('Периметр прямоугольного треугольника: ', perimeter:0:2);
writeln('Площадь прямоугольного треугольника: ', area:0:2);
end.