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

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

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

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.