Что не так в программе? var a,b,c:real; begin; read(a,b,c); if a>0 then (a>0) and (b>0)...

Question

Что не так в программе? var a,b,c:real; begin; read(a,b,c); if a>0 then (a>0) and (b>0) and (c>0) else write ('невозможно') write(a,b,c); end.

Answer 1

В соответствии с синстаксисом языка Паскаль, после then должен следовать оператор языка. У Вас записано логическое выражение (a>0) and (b>0) and (c>0), которое оператором не является.

Answer 2

Не знаю, что ты пытался этим кодом сделать, но как минимум у тебя условие "(a>0) and (b>0) and (c>0)" идёт после слова "then" (а должно быть после "if"). Вероятно, вывод значений "write(a,b,c);" должен быть на его месте, либо наоборот, на месте "write ('невозможно')".

Comments

Действительно,я условие записал не туда,спасибо