Ребята нужна сделать.

[ManCOM]

На паскале. Блин вобще не могу сделать точно.
Условие: Даны отрезки a,b,c,d. Для каждой тройки этих отрезков, из которых можно построить треугольник, напечатать площадь этого треугольника.

[Ponkole]

Отрезки заданы их длинами?

[MIKE11IPME]

задача 1 класса
abcd переменные тип интегер , либо присваиваем им значение в теле программы или отдельно при запуске программы (write('c:'); read(c)
дальше формируем тройки сторон вручную (тупо перечисляем) , писать отдельно процедуру или ещё кусок программы чтоб в ручную не перечислять 3-ки сторон для уровня данной программы не уместно

[Ponkole]

uses CRT;
var a,b,c,d:integer;
function triyg(a,b,c:integer):boolean;
begin
triyg:=false;
if (a+b>c) and (b+c>a) and (a+c>b) then
triyg:=true;
end;
function S(a,b,c:integer);
begin
s:=round(sqrt((a+b+c)/2*((a+b-c)/2)*((a-b+c)/2)*((-a+b+c)/2)));
end;
begin
clrscr;
read(a,b,c,d);
clrscr;
if triyg(a,b,c) then writeln('1,2,3     S=',s(a,b,c)); 
if triyg(a,b,d) then writeln('1,2,4     S=',s(a,b,d)); 
if triyg(a,d,c) then writeln('1,4,3     S=',s(a,d,c)); 
if triyg(d,b,c) then writeln('4,2,3     S=',s(d,b,c)); 
readln;
readln;
end.

[ManCOM]

Спасибо ребята большое, я тлько начал изучать Паскаль. Какие вы умные, я пока еще 0.

[ManCOM]

Условие: Программа вводит 2 рациональных числа (числитель, знаменатель) и с помощью функции Ravno (a,b)
сравнивает эти числа (равны или не равны).

[NiCola999]

я тлько начал изучать Паскаль. Какие вы умные, я пока еще 0.

если будешь часто просить решить за тебя задачу, так и останешься нулем.

[ManCOM]

Это правда, ну я стараюсь изучать. Вот только с двумя задачами застряллл...

[Sabin4ik]

Сообщение от ManCOM

Это правда, ну я стараюсь изучать. Вот только с двумя задачами застряллл...

Капец это несерьезно...самому-то лень подумать? проги не пишутся за час..

[NiCola999]

2 класс, сравнение дробей =)