Program calculations;
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;

begin
writeln ('Enter a:');
readln(a);
writeln('Enter b:');
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln('c=',c:2:2);
writeln('S=',S:2:2);
writeln('P=',P:2:2);
writeln('Radius1=',Radius1:2:2);
writeln('radius2=',radius2:2:2);
readln;
end.

0 0

4 года назад

Информатика 3класс ребус параграф 2 упражнение 1как разгадать

яд [24]

Ответ на ребус - информация

0 0

2 года назад

Таблица истинности A^(BvB)

Nadya151295

Если упростить выражение, получится A^B.
Следовательно, таблица истинности:

A B A^B

0 0 0

1 0 0

0 1 0

1 1 1

0 0

4 года назад

Помогите пожалуйста , даю 50 баллов

lawyer1912

Ответ:5незнаю

Объяснение:

0 0

3 года назад