Question

Помогите пж что тут надо переделать.

Program Z2;
Var a,b,с:integer;
Begin Readln (a,b,c);
If a>=b+c then Writeln (‘Нет’)
Else if b>=a+с then Writeln (‘Нет’)
Else if c>=a+b then Writeln (‘Нет’)
Else Writeln (‘Да’);
End.

Answer 1

Var a, b, c:integer;

Begin

Readln(a,b,c);

If a>=b+c then Writeln('Нет' )

Else if b>=a+c then Writeln('Нет')

Else if c>=a+b then Writeln('Нет')

Else Writeln('Да');

End.

Использование русских букв в названии переменной (с) это очень сильно, а ещё кавычки не `, а ' должны быть. Код можно еще улучшить избавившись от большого кол-ва проверок if т. к. это замедляет компиляцию

Var a, b, c:integer;

Begin

Readln(a,b,c);

If (a>=b+c) or (b>=a+c) or (c>= a+b) then Writeln('Нет' )

Else Writeln('Да');

End.