Var a:integer;S,p:real;beginWrite('Введите a сторону треугольника'); Readln(a);P:=3*a; Writeln('Периметр=',P);S:=(sqr(a)*sqrt(3))/4; Writeln('Площадь', S);Readln;end.
1.
а) a*x*x+b*x+c
б) v+a*t*t/2
в) 1/2*(a+b)*h
г) (1+x1*x2)/(b*b*c)
д) SQRT(a*a+b*b)
2. Операции * и / выполняются слева направо, поэтому (см. рис.):
1) = b*(a*d)/(e*c)
2) = (a*b)/(c*d*e)
3) = a*b*d/(c*e)
4) = (a*d*b)/(c*e)
"Лишнее" выражение - 2)
Истинный цвет - каждый пиксель весит 24 бита
Объем = кол-во пикселей* глубину цвета=20*20*24 бит=9600 бит=1200 байт=приблизит. 1,17Кбайт
Program zd;
const
t=0,5;
var
a,b,c:byte;
r,s:real;
begin
writeln('Введите сторону А');
readln(a);
writeln('Введите сторону В');
readln(b);
writeln('Введите угол С (в градусах)');
readln(c);
r:=c*pi/180; {Перевод из градусов в радианы}
s:=t*a*b*sin(r); {Формула для вычисления}
writeln('Результат = ',s);
readln; {Сразу выводит результат на монитор без нажатия Ctrl+F9 (вроде бы)}
end.
Вроде бы так, попробуй запустить проверить