Question

Объясните, что я сделала не так? Попытка присвоить переменной типа integer выражение типа real Как исправить? А задача: найти среднее значение 3-х чисел. program chisla; uses crt; var a,b,c,x:integer; begin writeln('vvedite tri chisla'); readln (a); readln (b); readln (c); x:=((a+b+c)/3); readln(x); end. x:=((a+b+c)/3); вот именно здесь у меня ошибку показывает.

Answer 1

Сделай не Integer а Real и все)  Это из-за деления. Интеджер ругается на деление)

Answer 2

Проблема в вашем коде связана с тем, что переменные `a`, `b` и `c` объявлены как `integer`, а результат выражения `(a+b+c)/3` будет иметь тип `real` (вещественное число), так как происходит деление целых чисел. Таким образом, вы не можете присвоить результат этого выражения переменной `x`, которая имеет тип `integer`.

Чтобы исправить это, вы можете объявить переменные `a`, `b`, `c` и `x` как `real`. Вот исправленный код:

program chisla;
uses crt;

var
  a, b, c, x: real;

begin
  writeln('Введите три числа');
  readln(a);
  readln(b);
  readln(c);

x := (a + b + c) / 3;

writeln('Среднее значение: ', x);
  readln;
end.

Теперь все переменные имеют тип `real`, и код должен работать корректно для нахождения среднего значения трех чисел.