Составить программу нахождения суммы, разности, - вопрос №39421993 от Nezlo8 03.12.2020 11:45

Question

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

Nezlo8 · Answer

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.