Question

For6. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, …, 2 кг конфет.

Answer 1

2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Program konfeti;   Uses     CRT;   Var     x,m:real;  {x-цена за килограмм, m-текущая масса} Begin   CLRSCR;   m:=1.2;   Write('Введите цену за килограмм конфет:');   Readln(x);   While (m<2.1) do     Begin        Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');      m:=m+0.2    End; Readln; End.