Условия существования треугольника - сумма 2ух сторон больше 3ей
var a,b,c:real;
e:boolean;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then e:=true;
writeln(e);
<span>end.
если что то не понятно пишите в комменты</span>
Http://spiders.ru/widow.mp3
<span>БГВДАЖЕ</span>
Решено, исходные данные:
<em>a(1)=0 a(2)=1</em>
<em>a(n+2)=a(n+1)</em><span><em>-a(n)</em>
<em>Найди a(885)</em>
<em>Внимание: скобка означает число в нижнем индексе.</em>
Решаем, исходим сразу от наибольшего числа:
</span><em>a(885)=a(884)-a(883)=a(883)-a(882)-a(883)=a(882)
</em>В чем фокус-покус. Сначала мы применили формулу по отношению к числу<em>a(885)</em><span>, а потом к числу </span><em>a(884)</em><span>, из чего получилось равенство </span><em>a(885)=a(882)</em>
Тем самым, мы можем утверждать, что числа в последовательностях будут совпадать каждые 885-882=3 раза. 885 кратно 3, следовательно ищем наименьшее общее кратное число, оно равно 3. Следовательно a(885)=a(3)
<span>Находим </span><em>a(3)</em><span> из формулы:</span><em> a(3)=a(2)-a(1)=1-0=1</em><span>, следовательно </span>a(885)=1
Var a,b,c:integer;
Begin
Readln(a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then
Write('yes') Else
write('no').
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт