Что не так в программе?

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.

Question

Информатика

Силван

4 марта, 15:47

Что не так в программе?

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.

+5

Ответы (1)

Знаете ответ на вопрос?

Дэлла · Answer 1

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

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

Что не так в программе?

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.