Составить программу нахождения суммы, разности, произведения - вопрос №39431013 от kotiketik 20.10.2022 15:33

Question

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

kotiketik · 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.