ПОМОГИТЕ ПОЖАЛУЙСТА !!!!!!!!!!!!!!!!!!!!!!! 1.Составить алгоритм и программу, вычисления...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА !!!!!!!!!!!!!!!!!!!!!!!
1.Составить алгоритм и программу, вычисления площади и периметра прямоугольного треугольника, значения длин которого (a,b,c) задаются в программе. Площадь вычисляется по формуле: S=a*b/2, периметр P=a+b+c.
2.Записать результат выполнения программы вычисления значения выражения. X=20. Y=10. a=x+3yx

Answer 1

1.
var a,b,c,s,p:real;
begin
readln(a,b,c);
s:=a*b/2;
p:=a+b+c;
writeln('s = ',s:4:1,' p = ',p:4:1);
end.

Пример:
3 4 5
s = 6.0 p = 12.0

2.
var x,y,a:integer;
begin
x:=20;
y:=10;
a:=x+3*y*x;
writeln('a = ',a);
end.

Результат:
a = 620