Вычислим примеры. Для этого приведем дроби к общему знаменателю.
Так как общий знаменатель число 45, то 7/9 дробь умножим на 5/5. После этого делаем прибавку.
1) 2/45 + 7/9 = 2/45 + 7/9 × 5/5 = 2/45 + 35/45 = 37/45;
Дробь 2/5 умножим на 5/5.
2) 2/5 + 4/25 = 2/5 × 5/5 + 4/25 = 10/25 + 4/25 = 14/25;
Найдем произведение дробей 1/6 и 3/3, чтобы получили знаменатель 18. Результат прибавки можно сократить в два раза.
3) 1/6 + 7/18 = 1/6 × 3/3 + 7/18 = 3/18 + 7/18 = 10/18 = 5/9.
Делаем умножение 6/7 на 6/6.
4) 19/42 + 6/7 = 19/42 + 6/7 × 6/6 = 19/42 + 36/42 = 55/42;
Умножим дробь 5/8 на 4/4.
5) 3/32 + 5/8 = 3/32 + 5/8 × 4/4 = 3/32 + 20/32 = 23/32;
6) 3/8 + 1/56 = 3/8 × 7/7 + 1/56 = 21/56 + 1/56 = 22/56 = 11/28.
Program YouName;
Uses crt; // Использование модуля crt.
Const e = 2.71828; // Объявление константы e.
Var // Раздел для описания переменных.
m,n: Integer; // Объявляем целочисленные переменные.
x,u,y: Single; // Объявляем дробные переменные.
Label check1, check2; // Объявляем метки для оператора Goto.
Begin // Начало "тела" программы.
check1: // Метка для без условного перехода с оператора Goto.
write('Введите m: '); // Вывод текстового сообщения на экран консоли.
// {$I-} - это деректива, которая перехватывает вывод ошибок.
// т.e., если во время выполнение программы между {$I-} и {$I+} не будет ошибок,
// то значение IOResult будет равно 0. Если во время выполения программы произойдет ошибка,
// то программа не остановится, а задаст значение IOResult неравное 0.
// {$I+} соответственно отключает дерективу.
{$I-} // Включение директивы.
readln(m); // Ввод значения переменной m.
{$I+} // Отключение директивы
If IOResult <> 0 then // Если IOResult не равно 0 (т.е есть ошибки во время включенной директивы $I), то..
Begin // Начало подпрограммы.
writeln('Вы ввели неизвестный символ.'); // Вывод текстового сообщения на экран консоли.
writeln('Введите число'); // Вывод текстового сообщения на экран консоли.
Goto check1; // Переход на метку check1
End; // Конец подпрограммы.
check2: // Метка для без условного перехода с оператора Goto.
write('Введите n: '); // Вывод текстового сообщения на экран консоли.
{$I-} // Включение директивы.
readln(n); // Ввод значения переменной n.
{$I+} // Отключение директивы.
If IOResult <> 0 then // Если IOResult не равно 0 (т.е есть ошибки во время включенной директивы $I), то..
Begin // Начало подпрограммы.
writeln('Вы ввели неизвестный символ.'); // Вывод текстового сообщения на экран консоли.
writeln('Введите число'); // Вывод текстового сообщения на экран консоли.
Goto check2; // Переход на метку check2
End; // Конец подпрограммы.
x:=(m*n-exp(ln(e)*((-m)*0.7)))/(2.67); // Вычисление x
y:=ln(2)*(m+1); // Вычисление y
u:=0.125*sqrt(x/y)+exp(ln(e)*cos(x-y)); // Вычисление u
writeln(u:0:4); // Вывод текстового сообщения на экран консоли.
// u:0:4 - это задает переменной u четыре знака после запятой.
End. // Конец "тела" программы.
И где тут только 40
Объяснение: