Предмет: Информатика,
автор: agcaraqelyan99
массиве G(10) хранятся гипотенузы 10 прямоугольных треугольников, а массиве С(10) -их катеты. Для каждого из треугольников найти второй катет массивы с именами В и S.
Ответы
Автор ответа:
0
Квадрат катета равен разности квадрата гипотенузы и квадрата другого катета
program raf105;
var
b,s,s2: array[1..10] of real;
i: integer;
begin
for i:=1 to 10 do
begin
b[i]:= random(11,20);
s[i]:= random(2,10);
s2[i]:= sqrt(power(b[i],2) - power(s[i],2));
writeln('Треугольник №',i);
writeln('Гипотенуза: ',b[i]);
writeln('Катет 1: ',s[i]);
writeln('Катет 2: ',s2[i]:0:1);
writeln;
end;
end.
PascalABC
Похожие вопросы
Предмет: Геометрия,
автор: 7sjzusujzjzzj
Предмет: Обществознание,
автор: Zlata5689
Предмет: Физика,
автор: hsvh
Предмет: Алгебра,
автор: Рина228
Предмет: География,
автор: Димдилен