Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.