pamirs@vk
05-12-2012, 16:05
Program tkan;
Var Square : real ;
Price : real;
X : real ;
begin
Write('Vvedite dlinu otrezka (metrov): ');
readln(X);
Square:= X * 0.8 ;
Price:=Square * 8;
WriteLn('Stoimost kuska tkani ploshadyu ', Square,' kvadratnix metrov sostavlyaet ', Price,' rubley');
readln;
END.
Var Square : real ;
Price : real;
X : real ;
begin
Write('Vvedite dlinu otrezka (metrov): ');
readln(X);
Square:= X * 0.8 ;
Price:=Square * 8;
WriteLn('Stoimost kuska tkani ploshadyu ', Square,' kvadratnix metrov sostavlyaet ', Price,' rubley');
readln;
END.