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

Question

Информатика

Поплия

22 мая, 07:48

Составить программу нахождения суммы, разности, произведения и частного 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.