======Ukr======program gradute-s-dress; var whifab16, bluefab16, atl16, lin16, Ea6, Fd6, Ls6, Sk6, summ16 : real;beginclrscr;writeln (введіть числа, де whifab16 - вартість органзи, грн/м, bluefab16 - вартість креп-атласу для підкладки спідниці, грн/м, atl16 - вартість атласу для корсету, грн/м, lin16 - вартість підкладки, грн/м);readln (whifab16, bluefab16, atl16, lin16);Ea6: =&nbsp...

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

=======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/

Захоплення вишивою хрестиком почалось, коли я у одному маминих журналів "Burda" побачила цю невеличку картиинку. Попросила маму показати, як це робиться. Вісім хрестиків у рядочок.Потім мої три рядочки до прямокутника.А потім тиждень мене неможливо було відірвати. )))[Приєднана картинка]Мій перший рушник, вишити який потрібно було на уроках праці у школі. Залишилось лише фото.Місцезнаходження цієї речі зараз мені невідоме. Десь "заблукав" на...

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

=======Ukr=========program green_skirt; var grefabr, blackfabr, Ea1, Fd1, summ1 : real;beginclrscr;writeln (введіть числа, де grefabr - вартість зеленої тканиини, грн/м, blackfabr - вартістть чорної тканини, грн/м);readln (grefabr, blackfabr);Ea1: = grefabr * 0,6;Fd1: = blackfabr * 0,6;summ1: = Ea1 + Fd1;writeln (summ1 - необхідна сума, грн);end. =========Rus============program green_skirt...

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

[Приєднана картинка]липень 2007р.[Приєднана картинка]