1)
var
V,a: integer;
begin
write('Введите длину ребра: ');
readln(a);
V:=a*a*a;
writeln('Объём куба: ',V);
end.
2)
var
a,b,c,S: integer;
begin
writeln('Введите длины ребер:');
readln(a,b,c);
S:=2*a*b+2*a*c+2*b*c;
writeln('Площадь поверхности кирпича: ',S);
end.
3)
var
r,l: real;
begin
write('Введите радиус окружности: ');
readln(r);
l:=2*Pi*r;
writeln('Длина окружности: ',l);
end.
Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.
Итак, треугольник может существовать, если сумма длин двух его сторон больше третий стороны.
Алгоритм такой:
Принимаем значения a b c
Если(a + b < c или a + c < b или c + b < a)
Вернуть ложь
Иначе
Вернуть истину