Исполнитель U18 преобразует число, записанное на экране. У исполнителя есть три команды, которым присвоены - id1430425920210527 от мрамар 27.05.2021 19:40

Question

Информатика: Исполнитель U18 преобразует число, записанное на экране. У исполнителя есть три команды, которым присвоены номера: 1. Прибавить 1 2. Умножить на 2 3. Умножить на 3 Сколько существует программ, для которых при исходном числе 2 результатом является число 30 и при этом траектория вычислений содержит число 15?

мрамар · Accepted Answer

Код не мой, не знаю, на счет правильности, Var S: real;                x: Array [1..5] of Real;                y: Array [1..5] of Real;                z: Array [1..5] of Real;            i,n,m: Integer; {процедура вычисления площади треугольника} procedure plosh(x_1,y_1,z_1,x_2,y_2,z_2,x_3,y_3,z_3:real); var a,b,c,p,t:real; begin  a:=sqrt(sqr(y_2-y_3)+sqr(x_2-x_3)+sqr(z_2-z_3));  b:=sqrt(sqr(y_1-y_3)+sqr(x_1-x_3)+sqr(z_1-z_3));  c:=sqrt(sqr(y_1-y_2)+sqr(x_1-x_2)+sqr(z_1-z_2));  p:=(a+b+c)/2;  t:=p*sqrt((p-a)*(p-b)*(p-c));...

MOGZ ответил