Умоляю Опишите код программы на языке программирования
Паскаль. Программа будет называться Ex_1, константы
отсутствуют, для написания программы используется два
целых числа x, y. Действия в программе будет одно,
переменной x необходимо присвоить тройную сумму числа
y.

используем рекурентную формулу, чтобы программу

а[n+1]=1/4

a[n]=1/2

t=(1/4)/(1/2)=1/2

a[n+1]=a[n]*1/2

program;

var  n: integer; abs,s,a: real;

begin

a: =1;

eps: =1;

s: =1;

repeat

a: =a*1/2;

abs: =abs(a);

s: =s+a;

until abs< 0.001;

writeln(s);

end;

из пяти литровой переливаем в трех литровую получаем два литра сливаем их в ведро повтаряем процедуру получаем в ведре четыре литра

1) нахождение эталона (детали которые весят одинаково)

сравниваем 2 детали. если они равны, то они эталоны, если не равны, то эталоны те что не взвешивались

2) сравниваем одну деталь из эталонной пары с деталью из нежталонной пары.

если равны, то искомая деталь, это та из неэталонной пары которая не взвешивалась

если не равны, то та деталь из неэталонной пары, которая взвешивалась

график сделать и расписать вес, массив даже не нужно делать.