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 - стоимость ...
Читати далі...