хочу сюда!
 

Татьяна

49 лет, весы, познакомится с парнем в возрасте 45-55 лет

spacesuit. пусть висит.

program whitejaket1;
       var whifab11, lin11, wafabr11ne11, whiquant11, liquant11, waquant11 nequant11Ea78Fd78, 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: = Ea78Fd78 + Ks78 + Tr78;
writeln (summ78 - необходимая сумма, грн);

end. 


program whitejaket1;
       var whifab11, lin11, wafabr11ne11, whiquant11, liquant11, waquant11 nequant11Ea78Fd78, 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: = Ea78Fd78 + Ks78 + Tr78;
writeln (summ78 - summ for paying, $);

end. 


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

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

0

Последние статьи

Комментарии