Question

Составьте программу, которая запрашивает стоимость 1 кг конфет и

выводит на экран стоимость 0.1, 0.2, 0.3, ..., 1 кг конфет. Результат работы

программы может выглядеть так:

Введите стоимость 1 кг конфет: 7.6

Стоимость 0.1 кг конфет = 0.76 руб.

Стоимость 0.2 кг конфет = 1.52 руб.

Стоимость 0.3 кг конфет = 2.28 руб.

Answer 1

var

   s : real;

   

begin

   write('введите стоимость 1 кг конфет: ');

   readln(s);

   for var i := 1 to 9 do begin

       writeln('стоимость ',i/10, ' кг конфет ', s*i/10);

   end;

end.