Question

1. Найти периметр и площадь прямоугольника. Составить программу на языке программирования. 4. В пяти тестовых опросах ученик получил оценки. Составьте алгоритм и программу, которая определит среднее значение оценок, полученных учеником в пяти опросах. 5. Даны катеты прямоугольного треугольника. Найти его гипотенузу.
решить в паскаль( помогите пожалуйста)

Answer 1

//1

var

a, b : integer;

begin

readln(a,b);

writeln('S=', a * b);

writeln('P=', 2*(a+b));

end.

//4

var

_sum, x : real;

i : integer;

begin

for i := 1 to 5 do

   begin

   readln(x);

   _sum := _sum + x;

   end;

writeln('Среднее:', _sum / 5:5:2);

end.

//5

uses Math;

var

a, b : real;

begin

readln(a, b);

writeln(sqrt(power(a, 2) + power(b, 2)):5:2);

end.