почему в приватном пишет NaN? помогите пожалуйстаprogram up1;var a,b,c:integer;x:real;begin

Почему в приватном пишет NaN? помогите пожалуйста
program up1;
var a,b,c:integer;x:real;
begin
x:=a/b/c;
writeln('Введите 1-ое число');
read(a);
writeln('Введите 2-ое число');
read(b);
writeln('Введите третье число');
read(c);
writeln('творенье чисел ',a,'*',b,'*',c,'=',a*b*c);
writeln('приватное чисел ',a,'/',b,'/',c,'=',x);
end.

Задать свой вопрос
Семён
А что значит x:=a/b/c; ? У Вас деление на 0 и переполнение, поэтому и пишет NAN
Juvzhenko Daniil
а почему на ноль
Славян Шашенов
необходимо отыскать творение и частное 3-х чисел, вводимых с клавиатуры
Karchaeva Galina
Потому, что оператор x:=a/b/c; стоит до оператора read(b); , а транслятор первоначально обнуляет все переменные
1 ответ
Вы пробуйте вычислить значение х не до ввода a,b,c а после:

program up1;
var a,b,c:integer;x:real;
begin
  writeln('Введите 1-ое число');
  read(a);
  writeln('Введите 2-ое число');
  read(b);
  writeln('Введите третье число');
  read(c);
  x:=a/b/c;
  writeln('произведение чисел ',a,'*',b,'*',c,'=',a*b*c);
  writeln('частное чисел ',a,'/',b,'/',c,'=',x);
end.
Вера Навольнева
спасибо
Пашка
как отметить лучший ответ
Артём Сентенков
???
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт