Перевести на С++ .Найти размеры всех треугольников, Площадь которых равна заданному
натуральному Числу и стороны которых также целыми
числами. При этом варианты, которые получаются
перестановкой сторон, считать разными.

222

248

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

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

postnovat

Информатика

4,5(43 оценок)

1. это с ручным вводом a и n var y, a, n, i: integer; begin write('введите число '); readln(a); write('введите желаемую степень '); readln(n); write(a, '^', n, ' = '); y: =a; for i : = 2 to n do y : = y * a; write(y); end.2. а это с рандомизацией переменныхvar y, a, n, i: integer; begin a : = random(30); n : = random(7); write(a, '^', n, ' = '); if n=0 then y: =1 else begin y : = a; for i : = 2 to n do y : = y * a; end; write(y); end.