Question

Даны X, У. Найти квадратный корень из произведения X и У, вычислить случайное число в диапазоне [X, У), получить целую часть от частного X и У.
Составит программу на языке Паскаль

Answer 1

var x, y: integer;
rez: real;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
rez := sqrt(x*y);
writeln('Квадратный корень произведения ', x, ' и ', y, ': ', rez);
if x > y then rez := random(X-2) + Y
else rez := random(Y-2) + X;
writeln('Случайное число из диапозона [ ', x, '; ', y, ' ): ', rez);
rez := int(x / y );
writeln('Целая часть от частного Х и Y: ', rez);
end.