1. 

   лентяй New Member

   Даны длины ребер а, b,c прямоугольного параллелепипеда. Найти его объем V=a умножить b умножить c и площадь поверхности S= 2 умножить (а умножить b + bумножить c+ a умножить с)

    

   лентяй, 1 янв 2010

   #1
2. 

   Krist New Member

   var
   a,b,c,V,S:integer;
   begin
   readln (a,b,c);
   V:=a*b*c;
   S:=2*(a*b+b*c+a*c);
   writeln ('V=',V);
   writeln ('S=', S);
   end.

    

   Krist, 1 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня