квадрат катета равен разности квадрата гипотенузы и квадрата другого катета
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Поделитесь своими знаниями, ответьте на вопрос:
Какая клавиша: фиксация режима ввода прописных букв/отказ от фиксации этого режима