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

Question

Сергей Жуков

Информатика

14 июля, 05:28

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Цвика · 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.