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

Рома67463 Рома67463    1   01.06.2019 09:50    10

Ответы
АсяГордиенко АсяГордиенко  02.07.2020 14:59
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика