Question

Составить программу нахождения суммы, разности, произведения и частного 3-х случайных чисел из диапазона от 0 до 50. (Pascal)

Answer 1

Program Zadacha; 
  Var sum, raz, pr, ch, x, y, z: real;
Begin 
  randomize;  
  x:=random(50); 
  y:=random(50); 
  z:=random(50); 
  sum:= x + y + z; 
  Writeln('Сумма = ',sum:4:2); 
  raz:= x - y - z; 
  Writeln('Разность = ',raz:4:2); 
  pr:= x * y * z; 
  Writeln('Произведение = ',pr:4:2); 
  ch:= x/y;  ch:= ch/z; 
  Writeln('Частное = ',ch:4:2);
End.