Var a,b,c,max,mid,min,t:integer; begin Writeln('Введите через пробел три целых двухзначных числа'); Readln(a,b,c); if a>b then begin max:=a; min:=b end else begin max:=b; min:=a end; if max<c then begin mid:=max; max:=c end else mid:=c; if min>mid then begin t:=mid; mid:=min; min:=t end; if (max-min)>mid then Writeln('YES') else Writeln('NO') end.
Тестовое решение: Введите через пробел три целых двухзначных числа 37 93 74 NO
...Я увидел эту фотографию в старом фотоальбоме. Даже не знаю, как она попала сюда - но почему-то именно этот пожелтевший снимок заставил меня отставить в сторону недопитый чай и задуматься. Я всматривался в фотографию , и мне стало казаться, будто она заговорила. Я услышал, как чуть шелестит на ветру съёжившийся от холода одинокий лист. Странное чувство охватило меня - я неожиданно сравнил себя с этим листочком, никому не нужным, умирающим листком клена. Что-то заныло в сердце - старые шрамы и свежие отметины напомнили о себе... Меня знобило. С большим трудом я оторвал затуманенный взор от фотографии и взглянул на дерево, росшее напротив окна спальни. На ветке, покрытой инеем, качался одинокий красно-оранжевый лист. "Я - как этот листок...". Волна обиды всколыхнулась где-то глубоко в душе и поднималась к горлу, душила, раздирала на части... Я захлопнул альбом и молча повалился в кресло На столике остывал чай, за окном щебетали какие-то оседлые пичужки, пахло осенью... На полу валялась выдернутая из альбома и порванная пополам фотография красного кленового листка.
Когда я прохожу осенью мимо парка не могу не заметить это красивое дерево. Её красные ягодки словно горят ярким огоньком привлекает внимание птиц. Её ствол округлой формы, серо - коричневатого цвета. Когда идёт дождь и нигде нет укрытия я с радостью прижмусь к этому дереву и поглажу его по коре. Листики рябины овальные и имеют ярко красно желтый оттенок. Для любителей апликацый из природного материала это дерево очень хорошаяя находка. Известно что из рябины делают варенье и лечат им простужених. Это словно подарок осени от болезней. Сама по себе рябина очень полезна и красива. Я люблю это дерево и оно мне раслабиться и отдохнуть
a,b,c,max,mid,min,t:integer;
begin
Writeln('Введите через пробел три целых двухзначных числа');
Readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end;
if max<c then begin mid:=max; max:=c end
else mid:=c;
if min>mid then begin t:=mid; mid:=min; min:=t end;
if (max-min)>mid then Writeln('YES')
else Writeln('NO')
end.
Тестовое решение:
Введите через пробел три целых двухзначных числа
37 93 74
NO