(1/a+1/24)*8=1
8/a+8/24=1
8/a+1/3=1
8/a=1-1/3
8/a=2/3
8/a=8/12
a=12
Var a,b,c:real;
begin
repeat
write('Введите длины сторон треугольника a,b,c ');
readln(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a=b) and (b=c) then writeln ('Равносторонний')
else writeln('Не равносторонний или такой треугольник не существует');
end.
Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний
Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует
Можно её понять, как факт, что сама по себе машина ничего не стоит, ибо она не живая, её можно купить, продать, выкинуть и т.д , то есть это вещь.
Человек же - это прежде всего живое существо, более утончённое хоть и имеет некоторые сходства с механизированой техникой. С человеком нельзя обращаться как с машиной, человек и его здоровье - превыше всего, ибо жизнь превыше всего, соответственно без жизни, которую человек в машину вкладывает - это всего лишь кусок железа и прочих металлов. Отсюда - человек и безопасность превыше куска железа.
const nx=20;
var r:array[1..nx] of integer;
var j:real; n,i,sum,k:integer;
begin
randomize;
write('Введите n');
readln(n);
for i:= 1 to n do begin
r[i]:= random(15);
if ((i mod 4 = 0) and (r[i] < 5 )) then begin
sum:= r[i]+sum;
k:=k+1;
end;
write(r[i]:4);
end;
writeln;
writeln('sum =',sum:3,' k =',k);
end.
9*1024*1026*8 = 75497472 бит
