Var a,b, C: real; C - угол между сторонами а и b
begin
read (a,b,c);
S:=1/2*a*b*sin (C);
writeln(s);
end.
Открыть
Проверить на вирусы
Открыть с помощью
Копировать
Отправить
Удалить
Свойства
64*64*16*1024=<span>
<span>67108864бит/8/1024/1024=8Мбайт</span></span>
Cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end