whitejaket1
- 02.12.14, 00:03
=======Ukr=======program whitejaket1; var whifab1, lin, la1, Ea3, Fd3, Ks3, summ3 : real;beginclrscr;writeln (введіть числа, де whifab1 - вартість основної тканини, грн/м, lin - вартість підкладки, грн/м, la1 - вартість мережива, грн/м);readln (whifab1, lin, la1);Ea3: = whifab1* 2,0;Fd3: = lin * 1,7;Ks3: = la1 * 0,6;summ3: = Ea3 + Fd3 + Ks3 ;writeln (summ3 - необхідна сума, грн);end. ...
0