Program projectwork; begin var a, b, c:integer; begin read (a); read (b); read (c); d:=a+b+c/3; write ('d='); end; end. ожидался идентификатор но вар обнаружено

Question

Program projectwork; begin var a, b, c:integer; begin read (a); read (b); read (c); d:=a+b+c/3; write ('d='); end; end. ожидался идентификатор но вар обнаружено

Гость

Ответ(ы) на вопрос:

Accepted Answer

program projectwork; var a, b, c:integer; d:real; begin read (a); read (b); read (c); d:=a+b+c/3; write ('d=',d); end. P.S.Если эта программа находит среднее арифметическое 3 введённых чисел,то d:=(a+b+c)/3;