Question

8 класс информатика пожалуйста паскаль​

Answer 1

var

 cost,kg:real;

begin

 kg:= 0.01;

 read(cost);

 while ( kg <= 0.1) do begin

   writeln(kg,' кг груш = ', kg*cost,' руб.');

   kg := kg + 0.01;

 end;

end.