=======Ukr========program redress1; var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;beginclrscr;writeln (введітть числа, де redfab1 - вартість червоного шифону, грн/м, redyelfabr1 - вартість кольорового шифону, грн/м, dubl1 - вартість дублерину, грн/м);readln (redfab1, redyelfabr1, dubl1);Ea31: = redfab1* 2,0;Fd31: = redyelfabr1 * 1,6;Tr31: = dubl1 * 0,3;summ31: = Ea31&nbsp...

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

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

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

За спробу мене сварити точно ніхто не буде. а якщо і буде - повернуся до вишивки)))) http://photo.i.ua/user/5202286/354080/