<![CDATA[VynT17pr - BLOG.I.UA]]> http://blog.i.ua/user/7005161/ //i.i.ua/avatar/1/6/7005161_75338860.jpg <![CDATA[VynT17pr - BLOG.I.UA]]> http://blog.i.ua/user/7005161/ <![CDATA[when_busy]]> http://blog.i.ua/user/7005161/1971656/ http://blog.i.ua/user/7005161/1971656/ program answer_my_when_busy;
       var  im-mess-stack--lnk, im_msg_txt, ans16, ans161, que16, some16, me16, me161: char;
begin
clrscr;
writeln (im-mess-stack--lnk); 
readln (some16);
some16: = im-mess-stack--lnk;
writeln (im_msg_txt); 
readln (que16);
que16: = im_msg_text;
      begin
if some16: = "Alex Bendgamin" or some16: = "Alex" or  some16: = id365754624  then 
                begin
   if que16: = ''привет. как дела?'' or que16: = ''привет.'' or que16: = ''привет'' or  que16: = ''Привет. Как дела?''         or que16: = ''привет. как дела'' then ans16: = "Привет.'', ans161: = "Занята, спишемся позже."
                 end;
writeln (ans16);
writeln (ans161);
im_msg_text: =  ans16;
im_msg_text: =  ans161;            
       end;
end. 
Комментировать
]]> Wed, 26 Oct 2016 14:56:00 +0300 <![CDATA[www.baidu.com]]> http://blog.i.ua/user/7005161/1729871/ http://blog.i.ua/user/7005161/1729871/ Комментировать]]> Tue, 29 Sep 2015 19:53:00 +0300 <![CDATA[вільний переклад.]]> http://blog.i.ua/user/7005161/1729456/ http://blog.i.ua/user/7005161/1729456/ головне ()
{
мійдрук ("Hello, world!");
} 
головне ()
{
мійдрук("Привіт, світ!");
}
Комментировать
]]> Mon, 28 Sep 2015 21:11:00 +0300 <![CDATA[Таблиця 7 на 12 клітинок.]]> http://blog.i.ua/user/7005161/1729441/ http://blog.i.ua/user/7005161/1729441/ 011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111
01111111011111110111111101111111011111110111111101111111

Комментировать
]]> Mon, 28 Sep 2015 19:30:00 +0300 <![CDATA[www.facebook.com/]]> http://blog.i.ua/user/7005161/1726142/ http://blog.i.ua/user/7005161/1726142/ 0111011101110111011101110010111001100110011000010110001101100101011000100110111101101111011010110010111001100011011011110110110100101111
Комментировать
]]> Sat, 19 Sep 2015 19:47:00 +0300 <![CDATA[Всё же интересно.]]> http://blog.i.ua/user/7005161/1724292/ http://blog.i.ua/user/7005161/1724292/ Пы.Сы. На фон за спиной смотреть не обязательно.... ;) 

№1 Со стрижкой каре.


№ 2 Со стрижкой каскад.




Присоединенное голосование (голосовать):
  • Со стрижкой каре.: 0%, 0 голосов
  • Со стрижкой каскад.: 100%, 1 голос
  • Затрудняюсь ответить.: 0%, 0 голосов
  • Мне вообще другие девушки нравятся.: 0%, 0 голосов
Комментировать
]]> Mon, 14 Sep 2015 19:05:00 +0300 <![CDATA[vitannya17]]> http://blog.i.ua/user/7005161/1722676/ http://blog.i.ua/user/7005161/1722676/ [ шшш.вітання17.фото.і.юа/ ]
Комментировать
]]> Wed, 09 Sep 2015 20:49:00 +0300 <![CDATA[www. bd.com]]> http://blog.i.ua/user/7005161/1704399/ http://blog.i.ua/user/7005161/1704399/ На цій планеті живе більше 7,5 млрд людей.
І кожен/кожна з них святкує кілька визначних дат.
Одна з них - день народження.
Якщо припустити, що імовірність народитись кожного дня однакова, тоді
7500000000 / 365 = (+/-) 20547945, тобто близько 20,5 млн людей святкують сьогодні свій день народження.
Мої вітання кожному з Вас! 
Нехай здійснюються мрії, на шляху зустрічаються чудові люди, а життя приносить неодмінне задоволення. 
P.S. Якщо раптом Вас не привітали друзі, або Ви вважаєте, що самотні, подивіться на розрахунок вище.
Можливо Ви знайдете друзів "за датою народження" ;)
[ www.дн.укр ]

Комментировать
]]> Tue, 21 Jul 2015 20:17:00 +0300 <![CDATA[www.дн.укр]]> http://blog.i.ua/user/7005161/1704398/ http://blog.i.ua/user/7005161/1704398/ І кожен/кожна з них святкує кілька визначних дат.
Одна з них - день народження.
Якщо припустити, що імовірність народитись кожного дня однакова, тоді
46000000 / 365 = (+/-) 126027, тобто близько 126 тис. людей в Україні святкують сьогодні свій день народження.
Мої вітання кожному з Вас! 
Нехай здійснюються мрії, на шляху зустрічаються чудові люди, а життя приносить неодмінне задоволення. 
P.S. Якщо раптом Вас не привітали друзі, або Ви вважаєте, що самотні, подивіться на розрахунок вище.
Можливо Ви знайдете друзів "за датою народження" ;)

Комментировать
]]> Tue, 21 Jul 2015 20:08:00 +0300 <![CDATA[Gradute's dress.]]> http://blog.i.ua/user/7005161/1598201/ http://blog.i.ua/user/7005161/1598201/
======Ukr======

program gradute-s-dress;
       var whifab16, bluefab16, atl16, lin16,  Ea6, Fd6, Ls6, Sk6, summ16 : real;
begin
clrscr;
writeln (введіть числа, де whifab16 - вартість органзи, грн/м, bluefab16 - вартість креп-атласу для підкладки спідниці, грн/м, atl16 - вартість атласу для корсету, грн/м, lin16 - вартість підкладки, грн/м);
readln (whifab16, bluefab16, atl16, lin16);
Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;
Ls6: = atl16 * 0,6;
Sk6: = lin16 * 0,5;
sum16: = Ea6 + Fd6 + Ls6 + Sk6;
writeln (summ16 - необхідна сума, грн);

end. 

=======Rus========

program gradute-s-dress;
       var whifab16, bluefab16, atl16, lin16,  Ea6, Fd6, Ls6, Sk6, summ16 : real;
begin
clrscr;
writeln (введите числа, где whifab16 - стоимость органзы, р/м, bluefab16 - креп-атласа для подкладки юбки, р/м, atl16 - стоимость атласа для корсета, р/м, lin16 - стоимость подкладки, р/м);
readln (whifab16, bluefab16, atl16, lin16);
Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;
Ls6: = atl16 * 0,6;
Sk6: = lin16 * 0,5;
sum16: = Ea6 + Fd6 + Ls6 + Sk6;
writeln (summ16 - необходимая сумма, р);

end. 

=======Eng========

program gradute-s-dress;
       var whifab16, bluefab16, atl16, lin16,  Ea6, Fd6, Ls6, Sk6, summ16 : real;
begin
clrscr;
writeln (please, write some information, where whifab16 - costs of transparent fabric, $/m, bluefab16 - costs of crepe-satin for lining of skirt, $/m, atl16 - costs of satin, $/m, lin16 - costs of lining, $/m);
readln (whifab16, bluefab16, atl16, lin16);
Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;
Ls6: = atl16 * 0,6;
Sk6: = lin16 * 0,5;
sum16: = Ea6 + Fd6 + Ls6 + Sk6;
writeln (summ16 - summa for paying, $);

end. 

Рассчет выполнен для выпускного платья.
http://photo.i.ua/user/5202286/351830/12671086/
B = 3,5 м - необходимое количество органзы,
D = 3,0 м - необходимое количество креп-атласа для подкладки юбки,
L = 0,6 м - необходимое количество атласа для корсета,
S = 0,5 м - необходимое количество подкладки для  корсета

Комментировать
]]> Tue, 02 Dec 2014 20:50:00 +0200 <![CDATA[reddress1]]> http://blog.i.ua/user/7005161/1598009/ http://blog.i.ua/user/7005161/1598009/ =======Ukr========

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

end. 

=======Rus========

program redress1;
       var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;
begin
clrscr;
writeln (введите числа, где redfab1 - стоимость красного шифона, р/м, redyelfabr1 - стоимость разноцветного шифона, р/м, dubl1 - стоимость дублерина, р/м);
readln (redfab1, redyelfabr1, dubl1);
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1  * 1,6;
Tr31: = dubl1 * 0,3;
summ31: = Ea31 + Fd31 + Tr31;
writeln (summ31 - необходимая сумма, р);

end. 

=======Eng========

program redress1;
       var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;
begin
clrscr;
writeln (please, write some information, where redfab1 - costs of red fabric, $/m, redyelfabr1 - costs of differentcolore fabric, $/m, dubl1 - costs of dublerin, $/m);
readln (redfab1, redyelfabr1, dubl1);
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1  * 1,6;
Tr31: = dubl1 * 0,3;
summ31: = Ea31 + Fd31 + Tr31;
writeln (summ31 - summa for paying, $);

end. 


Рассчет выполнен для платья
B = 2,0 м - необходимое количество красного шифона
D = 1,6 м - необходимое количество разноцветного шифона
G = 0,3 м - необходимое количество дублерина
По желанию, вместо предложенного варианта материалов, можно выбирать любые.

Комментировать
]]> Tue, 02 Dec 2014 11:38:00 +0200 <![CDATA[spacesuit. пусть висит.]]> http://blog.i.ua/user/7005161/1597970/ http://blog.i.ua/user/7005161/1597970/ program whitejaket1;
       var whifab11, lin11, wafabr11, ne11, whiquant11, liquant11, waquant11 , nequant11, Ea78, Fd78, Ks78, Tr78, summ78 : real;
begin
clrscr;
writeln (введите числа, где whifab11 - количество основной ткани, м, lin11 - количество подкладки, м, wafabr11 - количество утеплителя, м, ne11 - количество ткани для внутреннего чехла, м);
writeln (введите числа, где whiquant11 - стоимость основной ткани, грн/м, liquant11 - стоимость подкладки, грн/м, waquant11 - стоимость утеплителя, грн/м,  nequant11 - стоимость ткани для внутреннего чехла, грн/м);
readln (whifab11, lin11, wafabr11 , ne11);
readln (whiquant11, liquant11, waquant11, nequant11);
Ea78: = whifab11*whiquant11;
Fd78: = lin11 *liquant11;
Ks78: = wafabr11 * waquant11;
Tr78 : = ne11 * nequant11;
summ78: = Ea78+ Fd78 + Ks78 + Tr78;
writeln (summ78 - необходимая сумма, грн);

end. 


program whitejaket1;
       var whifab11, lin11, wafabr11, ne11, whiquant11, liquant11, waquant11 , nequant11, Ea78, Fd78, Ks78, Tr78, summ78 : integer;
begin
clrscr;
writeln (please, write some information, where whifab11 - quantity of white fabric, m, lin11 - quantity of lining, m, wafabr11 - quantity of warmfabric, m, ne11 - quantity of fabrik for cover, m);
writeln (please, write some information, where whiquant11 - costs of white fabric, $/m, liquant11 - costs of lining, $/m, waquant11 - costs of warmfabric, $/m,  nequant11 - costs of fabrik for cover, $/m);
readln (whifab11, lin11, wafabr11 , ne11);
readln (whiquant11, liquant11, waquant11, nequant11);
Ea78: = whifab11*whiquant11;
Fd78: = lin11 *liquant11;
Ks78: = wafabr11 * waquant11;
Tr78 : = ne11 * nequant11;
summ78: = Ea78+ Fd78 + Ks78 + Tr78;
writeln (summ78 - summ for paying, $);

end. 


Рассчет сделан для костюма на фото:
http://photo.i.ua/user/5202286/420382/12491992/
     - основная ткань,
     - подкладочный материал,
     - утеплитель,
     - ткань для внутреннего чехла.

P.S. Пошью себе - напишу, сколько нужно ткани ;) 

Комментировать
]]> Tue, 02 Dec 2014 09:10:00 +0200 <![CDATA[whitejaket1]]> http://blog.i.ua/user/7005161/1597898/ http://blog.i.ua/user/7005161/1597898/ =======Ukr=======

program whitejaket1;
       var whifab1, lin, la1, Ea3, Fd3, Ks3, summ3 : real;
begin
clrscr;
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. 

=======Rus=======

program whitejaket1;
       var whifab1, lin, la1, Ea3, Fd3, Ks3, summ3 : real;
begin
clrscr;
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. 

=======Eng=======

program whitejaket1;
var whifab1, lin, la1, Ea3, Fd3, Ks3, summ3 : real;
begin
clrscr;
writeln (please, write some information, where whifab1 - costs of white fabric, $, lin - costs of lining, $, la1 - costs of lace, $);
readln (whifab1, lin, la1);
Ea3: = whifab1 * 2,0;
Fd3: = lin * 1,7;
Ks3: = la1* 0,6;
summ3: = Ea3 + Fd3 + Ks3;
writeln (summ3 - summa for paying, $);

end. 

Рассчет выполнен для жакета
http://photo.i.ua/user/6762292/417413/12572245/
B = 2,0 м - необходимое количество основной ткани
D = 1,7 м - необходимое количество подкладки
S = 0,6 м - необходимое количество кружева
По желанию, вместо предложенного варианта материалов, можно выбирать любые.

Комментировать
]]> Tue, 02 Dec 2014 00:03:00 +0200 <![CDATA[brown&orange_dress1]]> http://blog.i.ua/user/7005161/1597862/ http://blog.i.ua/user/7005161/1597862/ &orange_dress1;
       var bror, orn, Ea2, Fd2, summ2 : real;
begin
clrscr;
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;
begin
clrscr;
writeln (please, write some information, where bror - costs of brown fabric, $, orn - costs of transparent  fabric, $);
readln (bror, orn);
Ea2: = bror * 1,5;
Fd2: = orn * 0,6;
summ2: = Ea2 + Fd2;
writeln (summ2 - summa for paying, $);

end. 

Рассчет выполнен для платья
http://photo.i.ua/user/5202286/423513/
B = 1,5 м - необходимое количество основной ткани
D = 0,6 м - необходимое количество шифона для отделки
По желанию, вместо предложенного варианта тканей, можно выбирать любые.
Комментировать
]]> Mon, 01 Dec 2014 22:08:00 +0200 <![CDATA[yellow&orange_dress1]]> http://blog.i.ua/user/7005161/1597851/ http://blog.i.ua/user/7005161/1597851/ program yellow&orange_dress1;
       var yelor, netfabr, Ea2, Fd2, summ2 : real;
begin
clrscr;
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, Ea2, Fd2, summ2 : real;
begin
clrscr;
writeln (please, write some information, where yelor - costs of yellow fabric, $, netfabr - costs of net-fabric, $);
readln (grefabr, blackfabr);
Ea2: = yelor * 2,1;
Fd2: = netfabr * 0,3;
summ2: = Ea2 + Fd2;
writeln (summ2 - summa for paying, $);

end. 

Рассчет выполнен для платья.
http://photo.i.ua/user/5202286/397033/11690929/
B = 2,1 м - количество основной ткани, в данном случае в желто-оранжевые цветы.
D = 0,3 м - количество сетки для пояса.
По желанию, вместо предложенного варианта тканей, можно выбирать любые.

Комментировать
]]> Mon, 01 Dec 2014 21:57:00 +0200 <![CDATA[А тепер я програміст)]]> http://blog.i.ua/user/7005161/1597850/ http://blog.i.ua/user/7005161/1597850/ а якщо і буде - повернуся до вишивки)))) 
http://photo.i.ua/user/5202286/354080/

Комментировать
]]> Mon, 01 Dec 2014 21:50:00 +0200