Составьте блок-схему и напишите программу вычисления площади и гипотенузы прямоугольного треугольника, если известны его катеты.

Var a,b,c,z,p,r: real; begin writeln ('введите катет а '); readln (a); writeln ('введите катет b '); readln (b); z: =sqr(a)+sqr(b); c: =sqrt(z); writeln ('гипотенуза равна ',c); p: =(a+b+c)/2; {по формуле герона нахожу полупериметр} r: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln ('площадь треугольника равна --> ',r); end. надеюсь блок схема понятна

Если вопрос в том, что выведет программа  и сразу ответ не очевиден, можешь построить табличку и выполнять программу вручную пошагово. для программы из примера это будет выглядеть как-то так: s   0   25   50   75   100   125   150   175 200  225   250   275 n   0   1     2     3     4       5       6       7     8       9       10   11 программа выведет 11, потому что при s равном 275 условие s < = 256 больше не будет выполняться. конечно можно решить и проще, но так меньше шанс ошибиться : )

1. 10 2. 12 3. 3 4. 22 5. 15 6. 34 7. 3 часть 2 1.  var   n: integer; begin   write('введи число ');   readln(n);   if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное); end. 2. var   a,b: integer; begin   write('введи числа ');   readln(a,b);   if a> b then begin write('a  =  ',b*a,' b = ',a+b) else write('a  = ',a+b,' b = ',a*b); end. 3. var   n: integer; begin   write('введи двузначное число ');   readln(n);   if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе'); end.