Предмет: Информатика, автор: dasha22032005

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

Ответы

Автор ответа: ForeignAgent
1

Ответ:

Объяснение:

1

program Middle;

var

  mid, x1,x2,x3 : integer;

begin

   write('input x1, x2, x3 ');

   readln(x1,x2,x3);

   if x1 < x2  

   then    if x1 < x3

           then    if x2 < x3

                   then mid := x2

                   else mid := x3

           else    mid := x1

   else    if x1 > x3

           then    if x2 < x3

                   then mid := x3

                   else mid := x2

           else    mid := x1;

   writeln ('Middle is ',mid);

end.

2

program pifagor;

var

   Cat1, Cat2, Hyp, Space : real;

begin

   write ('Cat1, Cat2 :');

   Readln (Cat1, Cat2);

   Hyp := sqrt (sqr(Cat1)+sqr(Cat2));

   Space := (Cat1 * Cat2)/2;

   WriteLn ('By Cat1 =',Cat1:5:2,' and Cat2 = ',Cat2:5:2,' Hyp is: ',Hyp:5:2, ' Space is: ',Space:5:2);

end.


dasha22032005: большое спасибо ☺️☺️☺️
Похожие вопросы
Предмет: Математика, автор: метель7
Предмет: Математика, автор: pibedaviktorija