Question

Не понимаю в чём ошибка, помогите исправить пожалуйста program qq; var a, b, c, d, j:integer; begin; a:=4; b:=5; c:=7; j:=3; d:= a + b+c; writeln ( d ); d:=a*b*c; writeln ( d ); d:=(a+b+c)/j; writeln ( d ); end.

Answer 1

Попробуй  использовать div а не /

Answer 2

Ошибка в данной программе заключается в том, что при выполнении операции сложения переменных a, b и c, а также при выполнении операции умножения переменных a, b и c, результат присваивается переменной d без использования оператора присваивания (:=).

Исправленный код программы будет выглядеть следующим образом:

program qq; var a, b, c, d, j: integer; begin a := 4; b := 5; c := 7; j := 3; d := a + b + c; writeln(d); d := a * b * c; writeln(d); d := (a + b + c) / j; writeln(d); end.

Теперь программа должна корректно выполняться без ошибок.