Составить программу нахождения суммы, разности, произведения и частного 3-х случайных чисел из диапазона от 0 до 50. (Pascal)
Составить программу нахождения суммы, разности, произведения и частного 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.
Не нашли ответ?
Похожие вопросы