Написать программу для турбо паскаля. условие: по 3 введеным сторонам треугольника определить является ли треугольник прямоугольным.

Program treug; var a,b,c: integer; begin writeln ('сторона 1='); readln (a); writeln ('сторона 2='); readln (b); writeln ('сторона 3='); readln (c); if ((a^2=b^2+c^2)or(b^2=a^2+c^2)or(c^2=a^2+b^2)) then writeln ('треугольник прямоугольный'); else writeln ('треугольник не прямоугольный'); end.

1)function first(k,l,m,n: integer): boolean;   begin   if mod 2=0) and (l mod 2< > 0)) or ((l mod 2=0) and (k mod 2< > = mod 2=0) and (n mod 2< > 0)) or ((n mod 2=0) and (m mod 2< > then first: =true else first: =false; end; 2)function second(k,l,m,n: integer): boolean;   begin  if (k=m) or (l=n) or +1)=m) and ((l+1)=n)) or +2)=m) and ((l+2)=n)) or +3)=m) and ((l+3)=n)) or +4)=m) and ((l+4)=n)) or +5)=m) and ((l+5)=n)) or +6)=m) and ((l+6)=n)) or -1)=m) and ((l-1)=n)) or -2)=m) and ((l-2)=n)) or -3)=m) and ((l-3)=n)) or -4)=m) and ((l-4)=n)) or -5)=m) and ((l-5)=n)) or -6)=m) and ((l-6)=n)) or +1)=k) and ((n+1)=l)) or +2)=k) and ((n+2)=l)) or +3)=k) and ((n+3)=l)) or +4)=k) and ((n+4)=l)) or +5)=k) and ((n+5)=l)) or +6)=k) and ((n+6)=l)) or -1)=k) and ((n-1)=l)) or -2)=k) and ((n-2)=l)) or -3)=k) and ((n-3)=l)) or -4)=k) and ((n-4)=l)) or -5)=k) and ((n-5)=l)) or -6)=k) and ((n-6)=l)) or -1)=m) and ((l+1)=n)) or -2)=m) and ((l+2)=n)) or -3)=m) and ((l+3)=n)) or -4)=m) and ((l+4)=n)) or -5)=m) and ((l+5)=n)) or -6)=m) and ((l+6)=n)) or -1)=m) and ((l+1)=n)) or -2)=m) and ((l+2)=n)) or -3)=m) and ((l+3)=n)) or -4)=m) and ((l+4)=n)) or -5)=m) and ((l+5)=n)) or -6)=m) and ((l+6)=n)) or -1)=k) and ((n+1)=l)) or -2)=k) and ((n+2)=l)) or -3)=k) and ((n+3)=l)) or -4)=k) and ((n+4)=l)) or -5)=k) and ((n+5)=l)) or -6)=k) and ((n+6)=l)) or -1)=k) and ((n+1)=l)) or -2)=k) and ((n+2)=l)) or -3)=k) and ((n+3)=l)) or -4)=k) and ((n+4)=l)) or -5)=k) and ((n+5)=l)) or -6)=k) and ((n+6)=l)) then second: =true else second: =false;   end;

Чат, чаттер (англ. chatter «болтать») — средство обмена сообщениями по компьютерной сети в режиме реального времени, а также программное обеспечение, позволяющее организовывать такое общение.

Применение:

1-Чаты, использующие технологию Push. Вместо периодической отправки за серверу о новых сообщениях, используются входящие сообщения от сервера, что позволяет отправлять и получать сообщения, расходуя меньше трафика

2- Программы-чаты для общения в локальных сетях

-----------------------------------------------------

Видеоконференция (от англ. videoconference) — область информационной технологии, обеспечивающая одновременно двустороннюю передачу, обработку, преобразование и представление интерактивной информации на расстоянии в режиме реального времени с аппаратно-программных средств вычислительной техники.

Применение:

1- Видеоконференции в дистанционном обучении

2- Судопроизводство

-----------------------------------------------------

IP-телефони́я (произносится «айпи́-телефони́я») — телефонная связь по протоколу IP. Под IP-телефонией подразумевается набор коммуникационных протоколов, технологий и методов, обеспечивающих традиционные для телефонии набор номера, дозвон и двустороннее голосовое общение, а также видеообщение по сети Интернет или любым другим IP-сетям.

Применение:

1- IP-сети с применением софтсвитча, IP-АТС или виртуальной АТС.

Объяснение: