Question

пожалуйста !!!!!!!!!!!!!!!!

Answer 1

* Блок-схемы изображены на прикрепленной картинке

Задание 4.

var a, d, c, k, y: integer;

begin

   readln(a, d, c, k);

   y := (a - (d + 21) * 2) + (c - 7 * k);

   writeln(y);

end.

Задание 5.

var k1, k2: real;

h, P, S: real;

begin

   write('Введите первый катет: ');

   readln(k1);

   write('Введите второй катет: ');

   readln(k2);

   h := sqrt(sqr(k1) + sqr(k2));

   P := k1 + k2 + h;

   S := 0.5 * (k1 * k2);

   writeln('Гипотенуза: ', h);

   writeln('Периметр: ', P);

   writeln('Площадь: ', S);

end.