Найти площадь равнобедренного треугольника зная высоту и основание по программе паскаль а б с(значения высоты и основания любые)

159

407

Посмотреть ответы 2

Ответы на вопрос:

katarinemiels2

Информатика

4,4(4 оценок)

Var h,b,s: real; begin write('введите основание = '); readln(b); write('введите высоту = '); readln(h); s: =0.5*b*h; writeln('площадь треугольника = ',s: 6: 2); end.

Еннтпшдь

Информатика

4,5(74 оценок)

Const k=5; var a: array[1..k] of integer; i,max: integer; begin for i: =1 to k do begin a[i]: =random(10)+20; write(a[i]: 3); end; writeln; max: =a[1]; for i: =2 to k do if a[i]> max then max: =a[i]; writeln('max = ',max); end. пример: 26 25 21 25 20 max = 26