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

vaynasmirnov021 vaynasmirnov021    2   15.02.2020 17:02    0

Ответы
Марина24102008 Марина24102008  11.10.2020 05:07

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика