---

функция факториал(Число)
	кайф = 1;
	для ИИ = 1 по Число цикл
		кайф = кайф * ИИ;
		
	конеццикла;
	возврат кайф; 
конецфункции

функция модуль(Число)
	кайф = pow(pow(Число, 2), 1/2);
	возврат кайф; 
конецфункции

функция корень(Число)
	кайф = pow(Число, 1/2);
	возврат кайф; 
конецфункции

функция степень(Число1, Число2)
	кайф = pow(Число1, Число2);
	возврат кайф; 
конецфункции

функция Ф(Число1, Число2, Число3)
	если (Число2 - Число3) < 0 тогда
		Сообщить("Ошибка, под корнем отрицательное выражение b-c");
		возврат("Ошибка");
	иначе
		попытка
			кайф = (корень(модуль(Число1 - Число3)) + Число2 * корень(Число2 - Число3)) / (Число1 + Число3 * (Число1 - корень(модуль(Число2 - Число3))));
			возврат кайф;		
		исключение
			Некайф = "ОШИБКА  ДЕЛЕНИЕ НА 0, ТЫ НЕ ПРАВ В ЖИЗНИ СВОЕЙ ЗАНОВО!!!";
			возврат Некайф;
		конецпопытки;
	конецесли;

конецфункции

функция ФФ(Число1, Число2, Число3)
	
	если (Число2 - Число3) < 0 тогда
		Сообщить("Ошибка, под корнем отрицательное выражение b-c");
		возврат("Ошибка");
	иначеесли (Число3 + Число2) < 0 тогда
		Сообщить("Ошибка, под корнем отрицательное выражение с+b");
		возврат("Ошибка");
	иначеесли (Число1 - Число3) < 0 тогда
		Сообщить("Ошибка, под корнем отрицательное выражение a-c");
		возврат("Ошибка");
	иначе
		попытка
			кайф = (корень(Число3 + Число2) * корень(Число2 - Число3) / (pow(Число1 - Число3, 1/3) + pow(Число2 - Число3, 1/5)));
			возврат кайф;		
		исключение
			Некайф = "ОШИБКА  ДЕЛЕНИЕ НА 0, ТЫ НЕ ПРАВ В ЖИЗНИ СВОЕЙ ЗАНОВО!!!";
			возврат Некайф;
		конецпопытки;
	конецесли;
конецфункции


&НаКлиенте
Процедура Команда1(Команда)
	перем а, б, с;
	
	ОчиститьСообщения();
	
	
	ввестичисло(а, "Введите число для a");
	ввестичисло(б, "Введите число для b");
	ввестичисло(с, "Введите число для c");
	
	ответ = Ф(а, б*12, с/4) + Ф(а/2, с*5, 0);

	сообщить(ответ);
КонецПроцедуры

&НаКлиенте
Процедура Команда2(Команда)
	перем а, б;
	
	ОчиститьСообщения();
	
	ввестичисло(а, "Введите число для A");
	ввестичисло(б, "Введите число для D");
	
	попытка
		ответ1 = (а + б * 10) / (а - б); 
		сообщить(ответ1);
	исключение
		СООБЩИТЬ("ОШИБКА В 1 ДЕЛЕНИЕ НА 0");	
	конецпопытки;
	
	попытка
		ответ2 = (а * б) / (5 - б);
		сообщить(ответ2);
	исключение
		СООБЩИТЬ("ОШИБКА В 2 ДЕЛЕНИЕ НА 0");	
	конецпопытки;
	
	попытка
		ответ3 = (а + б) / (а - б);
		сообщить(ответ3);	
	исключение
		СООБЩИТЬ("ОШИБКА В 3 ДЕЛЕНИЕ НА 0");	
	конецпопытки;
КонецПроцедуры

&НаКлиенте
Процедура Команда3(Команда)
		перем а, б, с;
	
	ОчиститьСообщения();
	
	
	ввестичисло(а, "Введите число для a");
	ввестичисло(б, "Введите число для b");
	ввестичисло(с, "Введите число для c");
	
	ответ = Ф(а/6, б+5, с-7) / Ф(а*2, с+5, 0);

	сообщить(ответ);
КонецПроцедуры

&НаКлиенте
Процедура Команда4(Команда)
	х = -100;
	Пока х <= 100 цикл
		попытка
			ответ = 1 / ((х - 5) * х);
			сообщить("При x=" + х + " ответ: " + ответ);
		исключение
			СООБЩИТЬ("При x=" + х + "ОШИБКА ДЕЛЕНИЕ НА 0");	
		конецпопытки;
		х = х + 0.5;
	конеццикла
КонецПроцедуры