Опубликовано 29.09.2017 по предмету Информатика от Гость >> <<

Почему в частном пишет 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.

Ответ оставил Гость

Вы попробуйте вычислить значение х не до ввода 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.

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.