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

Информатика

Мишаня

29 марта, 04:49

Program projectwork;

begin

var a, b, c:integer;

begin

read (a) ;

read (b) ;

read (c) ;

d:=a+b+c/3;

write ('d=') ;

end;

end.

ожидался идентификатор но вар обнаружено

+5

Ответы (1)

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

Купава · Answer 1

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;

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

Program projectwork;

begin

var a, b, c:integer;

begin

read (a) ;

read (b) ;

read (c) ;

d:=a+b+c/3;

write ('d=') ;

end;

end.

ожидался идентификатор но вар обнаружено