Наливаем 4 литра =>7 потом с нова 4=>7 и остается один литр в 4
делаем такие же операции и один литр в 7 литров а потом два раза по 4 литра туда и останется ведре 2 литра
а потом такие же операции как 2 литра переливаем их 7 литров а затем полный 4 литра получается 6
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>