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

Question

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

Comments

А что означает x:=a/b/c; ? У Вас деление на 0 и переполнение, поэтому и пишет NAN

---

а почему на ноль

---

нужно найти произведение и частное трех чисел, вводимых с клавиатуры

---

Потому, что оператор x:=a/b/c; стоит до оператора read(b); , а транслятор первоначально обнуляет все переменные

Answer 1

Вы попробуйте вычислить значение х не до ввода a,b,c а после:

program up1;
var a,b,c:integer;x:real;
begin
  writeln('Введите первое число');
  read(a);
  writeln('Введите второе число');
  read(b);
  writeln('Введите третье число');
  read(c);
  x:=a/b/c;
  writeln('произведение чисел ',a,'*',b,'*',c,'=',a*b*c);
  writeln('частное чисел ',a,'/',b,'/',c,'=',x);
end.

Comments

спасибо

---

как отметить лучший ответ

---

???