For6. дано вещественное число — цена 1 кг конфет. - вопрос №2324548611214 от stas289 27.09.2022 10:12

Question

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

stas289 · Answer

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....