Question

Составьте программу для вычисления площади прямоугольного треугольника по его катетам a и b. На строительных работах нужно отработать S часов, в подразделении N строителей. Какова средняя загруженность одного человека? Даны два действительных числа x и y. Вычислить их сумму, разность, произведение и частное.

Answer 1

1)
var a,b:integer;
s:real; 
begin 
read(a,b); 
writeln('Площадь равна= ', (a*b)/2); 
end.

2) 
var s,n:integer; 
sr:real; 
begin   
read(s,n);   
writeln('Средняя загруженность на человека= ', s/n:1:2);   
end.

3)
var x,y:integer;
begin 
read(x,y); 
writeln('Сумма=', x+y); 
writeln('Разность=', x-y); 
writeln('Произведение=', x*y); 
 writeln('Частное=', x div y); 
 end.

Answer 2

Program al;
var a,b:integer;
s:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
s:=(a*b)/2;
writeln('s=',s);
readln;
end.
___________________________


Program al;
var x,y,s,r1,r2,p:integer;
c1,c2:real;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
s:=x+y;
p:=x*y;
 r1:=x-y;
 r2:=y-x;
c1:=x/y;
c2:=y/x;
writeln('s=',s,' p=',p,' r1=',r1,' r2=',r2,' c1=',c1,' c2=',c2);
readln;
end.
____________________


Program al;
var s,n:integer;
begin
writeln('s');
readln(s);
writeln('n');
readln(n);
writeln('sredniaia zagrujennosti celoveka=',s/n,' ciasov');
readln;
end.
_______________________________________!!!