Program z1;
var a,b,c,s,p:real;
begin
writeln('введите три стороны треугольника');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-c)*(p-b));
writeln(s);
end.
Oldschool...
- Поле ввода текста <INPUT type=text> представляет собой прямоугольное поле, предназначенное для ввода одной строки текста.
- Флажки <INPUT type=checkbox>, или кнопки с независимой фиксацией, служат для многокомпонентного выбора.
- Контейнер <SELECT>…</SELECT> используется для создания раскрывающегося списка
- Контейнер <TEXTAREA>…</TEXTAREA> задает многострочное текстовое окно.
Это не такое уж и сложное задание. Ты могла бы его сделать сама.
P.S Я надеюсь, что я всё сделал правильно (но это неточно) :)
Var a,b,c:integer;
begin
writeln(‘vvedite chislo’);
readln(a);
b:=a div 1000;
c:=(a div 10) mod 10;
writeln(b,’ ‘,c);
end.
у маленьких треугольников 3 ребра, а их 8 => 8*3=24;
ребер у куба - 12
значит всего ребер - 36