Надо записать :если 2*S триугольника не натуральное число значить триугольник не подходит за условием

[Siusarna]

Дали задачу на разветвления :" если удвоенная площа триугольника не натуральное число значит вивести на екран "No solution"
Делаю через оператор if но как записать что не натуральное число?

[Stilet]

А как ты понимаешь термин "ненатуральное число"?
Какое это число с математической точки зрения?

[Siusarna]

ну например дробовое или рациональное или иррациональное

[Stilet]

дробовое

Хохо )))
Это не по беларусски так звучит? Хорошо хоть не "помповое"

Т.е. я правильно понимаю: "No solution" если у площадь представляет некое целое число. так?

[FPaul]

И ещё вопрос, а на основании чего вычисляется площадь треугольника?

[Siusarna]

Т.е. я правильно понимаю: "No solution" если у площадь представляет некое целое число. так?

нет если удвоенная площадь - целое число то триугольних существует а если не целое то не существует
например если S= 119.32 тогда удвоенная площадь =238.64 - надо выводить No solution а если например 240 тогда вывести триугольник существует

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

И ещё вопрос, а на основании чего вычисляется площадь треугольника?

ну извесны все 3 стороны

[FPaul]

А эти стороны задаются натуральными числами или действительными?
--------
Ещё пара-тройка часов, и вы нам расскажите полностью задание.

[FPaul]

Если натуральными.
Пробуете вычислить по формуле Герона.
S:=sqrt(p(p-a)(p-b)(p-c))
Но условие - 2S - должно быть натуральным. Чтобы это было так, нужно чтобы
1. произведение 4*p(p-a)(p-b)(p-c) было натуральным.
2. Подкоренное выражение было полным квадратом

Т.е. попробуйте на бумаге понять, что нужно проверить. А потом наваливаться на клавиатуру.

[Stilet]

s,a,b,c:double ;
begin
 Write('Сторона А');readln(а);
 Write('Сторона В');readln(в);
 Write('Сторона С');readln(с);
 s:=(a+b+c)/2; s:=sqrt(s*(s-a)*(s-b)*(s-c));
 if abs(trunc(s)-s)<0.0001 then writeln('Скорее существует чем нет')
 writeln('Врядли существует, но все возможно'); 
 readln;
end;

[FPaul]

Или так

program lab;

var
  a, b, c: integer;
  P: integer;
  S: integer;
begin
  readln(a, b, c);
  P := a + b + c;
  if not odd(P) then
  begin
    P := P div 2;
    S := P * (P - a) * (P - b) * (P - c);
    if sqr(round(sqrt(S))) = S then
      writeln('Ничего не вывести ', round(sqrt(S)))
    else
      writeln('No solution');
  end
  else
    writeln('No solution');
end.

'Скорее существует чем нет', 'Врядли существует, но все возможно'
Ещё чуток - и fuzzy logic , как я слышал, там будет 'Скорее существует (с вероятностью 50%) чем нет'.