program whitejaket1; var whifab11, lin11, wafabr11, ne11, whiquant11, liquant11, waquant11 , nequant11, Ea78, Fd78, Ks78, Tr78, summ78 : real;beginclrscr;writeln (введите числа, где whifab11 - количество основной ткани, м, lin11 - количество подкладки, м, wafabr11 - количество утеплителя, м, ne11 - количество ткани для внутреннего чехла, м);writeln (введите числа, где whiquant11 - стоимость ...

Читати далі...

=======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.&nbsp...

Читати далі...

program brown&orange_dress1; var bror, orn, Ea2, Fd2, summ2 : real;beginclrscr;writeln (введите числа, где bror - стоимость основной ткани, грн/м, orn - стоимость шифона, грн/м);readln (bror, orn);Ea2: = bror * 1,5;Fd2: = orn * 0,6;summ2: = Ea2 + Fd2;writeln (summ2 - необходимая сумма, грн);end. program brown&orange_dress1;var bror, orn, Ea2, Fd2, summ2 : real;beginclrscr...

Читати далі...

program yellow&orange_dress1; var yelor, netfabr, Ea2, Fd2, summ2 : real;beginclrscr;writeln (введите числа, где yelor - стоимость основной ткани, грн/м, netfabr - стоимость сетки для пояса, грн/м);readln (grefabr, blackfabr);Ea2: = yelor * 2,1;Fd2: = netfabr * 0,3;summ2: = Ea2 + Fd2;writeln (summ2 - необходимая сумма, грн);end. program yellow&orange_dress1;var yelor, netfabr...

Читати далі...