Как решить задачу?

Question

[vdel312]

Здравствуйте. Моя задача заключается в том, что нужно определить является ли треугольник "нормальный" или "вырожденный". Сделав блок-схему, я решил приступать к написанию кода на паскале, но не понимаю как нужно правильно это записать.

var a,b,c,Y :real;

begin
writeln('Введите переменную "a": ');
readln(a);
writeln('Введите переменную "b": ');
readln(b);
writeln('Введите переменную "c": ');
readln(c);


if (a+b)>c (a+c)>b (b+c)>a
then
writeln('Треугольник нормальный');
else
writeln('Треугольник вырожденный');



end.

Пытался гуглить, но так решение и не нашёл, подскажите как правильно ?

Comments

[Saboteur]

А какую ошибку выдает ваша программа?

[vdel312]

Saboteur: Встречено 'else', а ожидался оператор

[vdel312]

Saboteur: я добавляю begin и end , но всё равно та же проблема

Answer 1

[Saboteur]

Возьмите в дополнительные скобки все ваши сравнения, между ними добавьте and

if  ((a+b)>c and (a+c)>b and (b+c)>a)
then

или так:

if  ((a+b)>c) and ((a+c)>b) and ((b+c)>a)
then

Comments

[vdel312]

ошибка с else осталась. Я сейчас добавлю скриншот.

[Saboteur]

точку с запятой уберите после первого writeln, который перед else

[vdel312]

Saboteur: Спасибо большое, всё заработало. Можете объяснить зачем нужно было убирать точку с запятой там, чтобы больше таких ошибок не было?

[Saboteur]

vdel312: Таков синтаксис языка. Объяснение тут не нужно, нужно просто потратить 20-30 минут на чтение документации по основным базовым командам Pascal

[vdel312]

Saboteur: Хорошо, спасибо.