решить задачу Дан произвольный треугольник ABC, для которого определен следующий набор характерных параметров: - id1689972520211219 от Denafasf 19.12.2021 19:07

Question

Информатика: решить задачу Дан произвольный треугольник ABC, для которого определен следующий набор характерных параметров: a,b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h - высота, опущенная на сторону c, S - площадь, P - периметр треугольника. По трем заданным параметрам вычислить все остальные возможные сочетания параметров: b,c,h. Записать в паскале.

Denafasf · Accepted Answer

Var
A: array [1..10] of integer;
i, count: byte;
mult: integer;
begin
writeln('Сгенерированный массив.');
randomize;
for i := 1 to 10 do
begin
A[i] := random(11) + 10;
writeln(A[i]:4);
end;

count := 0;
mult := 1;

for i := 1 to 10 do
if A[i] mod 3 = 0 then
begin
count := count + 1;
mult := mult * A[i];
end;

if (count = 1) or (count = 0) then
writeln('Количество элементов кратных 3 = ', count)
else
writeln('Количество элементов кратных 3 = ', count, ' Произведение этих элементов = ', mult);
readln;
end.

MOGZ ответил