Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите подалуйста!
нужно написать алгоритм следующих 2 заданий на языке Паскаля
1. Даны два действительных положительных числа. Найдите среднее арифметическое, суму, разность и произведение этих чисел.
2 Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь

Ответ оставил Гость

Var a,b,c,d,f:integer;
begin
writeln(Введите 2 числа);
read(a,b);
c:=a+b;
d:=a-b;
f:=a*b;
k:=((a+b)/2);
writeln(Сумма равна ,c);
writeln(Разность равна ,d);
writeln(Среднее арифметическое равно ,k:0:2);
writeln(Произведение равно ,f);
end.
var a,b:integer;
c:real;
begin
writeln(Введите катеты);
read(a,b);
c:=sqrt(sqr(a)+sqr(b));
s:=a*b/2;
writeln(Площадь равна ,s);
writeln(Гипотенуза равна ,c:12:2);//12 число знаков перед запятой, 2- число знаков после запятой
end.