Turbo pascal » Страница 8

я думаю эту ошибку можно исправить сменив тип переменых например на real.

так и есть )))) знак деления из алгебры накатал )))

так в итоге, как это должно выглядеть?

с учетом исправлений

program test;
var a, b, c, d:real;
begin
    writeln('введите 3 числа');
    writeln('первое число');
    readln(a);
    writeln('второе число');
    readln(b);
    writeln('третье число');
    readln(c);
    d:=(a+b+c)/3;
    writeln('срднеарифметическое ', d);
    readkey;
end;
end.

Jaka,
ошибку пишет((( 4 штуки

end лишний.
и crt не подключен. функция readkey из crt же.
-------------
добавлено в 19.08: MihalycH68, должно работать, хотя и не проверял.

program MyFirstProj;

uses crt;
var 
  a,b,c: integer;
  res:real;

begin
  writeln('Введите 3 числа: ');
  Readln(a);
  Readln(b);
  Readln(c);
  res:=(a+b+c)/3;
  readkey;
end.

про crt я и забыл, давно паскалем не пользовался.

Besplotnyi,
спасиб работает. тока чет считает непонятно. допутим ввожу 1 2 3 выдает 2.00000000000000000000000Е+000 или ввожу 1 2 9 выдает 4.000000000000000000000Е+000? ответ вродь правельный, но что за куча нулей?

вроде так должно правильно выводить:
writeln('срднеарифметическое ', d:0:3);