Определите количество уровней в данной файловой структуре, а также определить где располагается файл "Зима", и сколько объектов на 2 уровне. (на уроке так и не дошло, как определить уровни файловой структуры, 2,3,4 вопросы).
Трехзначное число, записанное с цифр a,b,c имеет величину 100a+10b+c. Если зачеркнуть (отбросить) старшую цифру, то получится число 10b+c. Умножая на 6, получаем 6(10b+c)=60b+6c. И теперь можно составить уравнение 100a+10b+c=60b+6c 100a=50b+5c 100a=5(10b+c) 20a=10b+c a=(10b+c)/20 (1) Рассмотрим соотношения между целочисленными a,b,c ( a ∈ [1;9], b,c ∈ [0;9] ), которые удовлетворяют уравнению (1). Поскольку 10b кратно 10, то сумма 10b+с может оканчиваться нулем только если с=0. Тогда (1) принимает вид a=10b/20 или a=b/2 Тогда b - четное, т.е. принимает значения 2, 4, 6, 8. Соответственно, a принимает значения 1, 2, 3, 4.
Теперь можно записать варианты чисел: 120, 240, 360, 480.
Не уверена, что по длине сторон можно определить, что треугольник остроугольный, но предположила, что здесь можно использовать т. Пифагора, т.е. если квадрат гипотенузы (большей стороны) окажется меньше суммы квадратов катетов (меньших сторон), то соответственно и угол между последними окажется меньше 90 градусов. Если я не права отметьте ошибкой, пусть удалят. Итак:
program aaa; var a,b,c,x,y,z,s,p: real; begin writeln ('Введите стороны треугольника A, B и C'); readln (a,b,c);
{сначала найдем меньшую, среднюю и большую сторону и присвоим их значения, соответственно, переменным x, y и z}
if a<b then if a<c then if b<c then begin x:=a; y:=b; z:=c end else begin x:=a; y:=c; z:=b end else begin x:=c; y:=a; z:=b end else if a>c then if b<c then begin x:=b; y:=c; z:=a end else begin x:=c; y:=b; z:=a end else begin x:=b; y:=a; z:=c end;
{Теперь узнаем, является ли треугольник разносторонним и остроугольным: Для этого сравним длины сторон между собой а также сумму квадратов меньших сторон с квадратом большей}
if ((x*x+y*y)>(z*z)) and (a<>b) and (a<>c) and (b<>c) then begin p:=(a+b+c)/2; // находим полупериметр s:=sqrt(p*(p-a)*(p-b)*(p-c)); // находим площадь треугольника writeln(x,' ',y,' ',z,' - могут быть сторонами остроугольного разностороннего треугольника'); writeln('Площадь этого треугольника = ',s) end else writeln(a:4,b:4,c:4,' - не могут быть сторонами остроугольного разностороннего треугольника') end.
100a+10b+c.
Если зачеркнуть (отбросить) старшую цифру, то получится число 10b+c.
Умножая на 6, получаем 6(10b+c)=60b+6c.
И теперь можно составить уравнение
100a+10b+c=60b+6c
100a=50b+5c
100a=5(10b+c)
20a=10b+c
a=(10b+c)/20 (1)
Рассмотрим соотношения между целочисленными a,b,c
( a ∈ [1;9], b,c ∈ [0;9] ), которые удовлетворяют уравнению (1).
Поскольку 10b кратно 10, то сумма 10b+с может оканчиваться нулем только если с=0.
Тогда (1) принимает вид a=10b/20 или a=b/2
Тогда b - четное, т.е. принимает значения 2, 4, 6, 8.
Соответственно, a принимает значения 1, 2, 3, 4.
Теперь можно записать варианты чисел: 120, 240, 360, 480.
Итак:
program aaa;
var a,b,c,x,y,z,s,p: real;
begin
writeln ('Введите стороны треугольника A, B и C');
readln (a,b,c);
{сначала найдем меньшую, среднюю и большую сторону
и присвоим их значения, соответственно, переменным x, y и z}
if a<b
then
if a<c
then
if b<c
then begin x:=a; y:=b; z:=c end
else begin x:=a; y:=c; z:=b end
else begin x:=c; y:=a; z:=b end
else
if a>c
then
if b<c
then begin x:=b; y:=c; z:=a end
else begin x:=c; y:=b; z:=a end
else begin x:=b; y:=a; z:=c end;
{Теперь узнаем, является ли треугольник разносторонним и остроугольным:
Для этого сравним длины сторон между собой а также сумму квадратов меньших сторон с квадратом большей}
if ((x*x+y*y)>(z*z)) and (a<>b) and (a<>c) and (b<>c)
then begin
p:=(a+b+c)/2; // находим полупериметр
s:=sqrt(p*(p-a)*(p-b)*(p-c)); // находим площадь треугольника
writeln(x,' ',y,' ',z,' - могут быть сторонами остроугольного разностороннего треугольника');
writeln('Площадь этого треугольника = ',s)
end
else
writeln(a:4,b:4,c:4,' - не могут быть сторонами остроугольного разностороннего треугольника')
end.