brown&orange_dress1
- 01.12.14, 22:08
var bror, orn, Ea2, Fd2, summ2 : real;
clrscr;
writeln (введите числа, где bror - стоимость основной ткани, грн/м, orn - стоимость шифона, грн/м);
readln (bror, orn);
Ea2: = bror * 1,5;
Fd2: = orn * 0,6;
writeln (summ2 - необходимая сумма, грн);
end.
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, $);
Ea2: = bror * 1,5;
Fd2: = orn * 0,6;
writeln (summ2 - summa for paying, $);
end.
Коментарі