Найти обьем куба и площадь боковой поверхности

@Serheo666 · Регистрация: 23.03.2011

Author24 — интернет-сервис помощи студентам

Дана длинна ребра куба.Найти обьем куба и площадь боковой поверхности.
Зарание спасибо

@nuHrBuH · 25.03.2011, 00:39

Pascal

uses wincrt;
var
  x, y : real;
 
begin
  write('rebro : '); readln(x);
 
   x :=x * x;
   y := x*x;
 
  writeln('s = ',x:0:3);
  writeln('V = ',y:0:3);
end.

@Serheo666 · 25.03.2011, 00:51 **[ТС]**

А такую
Составить программу, проверяющую, можно ли из отрезков с длинами x,y,z построить треугольник.

@S9 · 25.03.2011, 02:45

Вроде так))

Pascal

Var
x,y,z:Real;
k:Integer;
Begin
k:=1;
{В любом треугольнике любая сторона меньше суммы двух других поэтому}
ReadLn(x);
ReadLn(y);
ReadLn(z);
If x>y+z Then k:=0;
If y>x+z Then k:=0;
If z>x+y Then k:=0;
If k=1 Then
WriteLn('Yes');{Треугольник существует}
If k=0 Then
WriteLn('No');{Треугольник не существует}
ReadLn;
End.

@Serheo666 · 25.03.2011, 15:42 **[ТС]**

Спасибо парни вы супер

@Serheo666 3 / 3 / 0 Регистрация: 23.03.2011 Сообщений: 68
		1
	Найти обьем куба и площадь боковой поверхности 25.03.2011, 00:18. Показов 2295. Ответов 4 Метки нет (Все метки) Дана длинна ребра куба.Найти обьем куба и площадь боковой поверхности. Зарание спасибо 1

@Serheo666 3 / 3 / 0 Регистрация: 23.03.2011 Сообщений: 68
	25.03.2011, 00:51 [ТС]	3
	А такую Составить программу, проверяющую, можно ли из отрезков с длинами x,y,z построить треугольник. 0

@Serheo666 3 / 3 / 0 Регистрация: 23.03.2011 Сообщений: 68
	25.03.2011, 15:42 [ТС]	5
	Спасибо парни вы супер 0