program projectwork;
begin
var a, b, c:integer;
begin
read (a);
read (b);
read (c);
d:=a+b+c/3;
write ('d=');
end;
end.
ожидался идентификатор но вар обнаружено
begin
var a, b, c:integer;
begin
read (a);
read (b);
read (c);
d:=a+b+c/3;
write ('d=');
end;
end.
ожидался идентификатор но вар обнаружено
More Questions From This User See All
Answers & Comments
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;