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

Question

Информатика

Ануша

28 июля, 06:11

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

+1

Ответы (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.