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

168

320

Посмотреть ответы 2

Ответы на вопрос:

mokajuma77

Информатика

4,7(99 оценок)

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.

svetusik214

Информатика

4,7(99 оценок)

Var a, n, i, rez: integer; begin readln(a, n); rez: =1; for i: =1 to (n-1) do rez: =a*a; write(rez); end. если возникли вопросы по коду или есть ошибка в ходе работы программы, пиши в комментарии.