Для каждого животного укажите наиболее развитое у него чувство. орёл зрение волк слух летучая мышь дельфин обоняние крот осязание

Орёл-зрение волк-обоняние летучая мышь-слух дельфин-слух крот-осязание

Функция x mod 10 - это остаток от деления х на 10. 387 mod 10 = 7. функция x div 10 - это целочисленное деление x на 10. 387 div 10 = 38. l увеличивается в цикле каждый раз на 1. значит, было 3 цикла. х каждый раз целочисленно делится на 10. цикл идет, пока x > 5. значит, последний раз было x < 50. m - это наименьший остаток от деления x на 10. если на выходе m  = 4, значит остатки были: 9, 8, 7, 6, 5, 4. допустим, остатки были 9, 9, и 4, и последний раз было x = 49, тогда на 2-ом цикле было x = 499, а на 1-ом x = 4994. проверяем: 1 цикл. m = 9, x = 4994, x mod 10 = 4994 mod 10 = 4 9 > 4 ? да, значит m = 4. x = x div 10 = 4994 div 10 = 499 2 цикл. m = 4, x = 499, x mod 10 = 499 mod 10 = 9 4 > 9 ? нет, значит м остается = 4. x div 10 = 499 div 10 = 49. 3 цикл. m = 4, x = 49, x mod 10 = 49 mod 10 = 9. 4 > 9 ? нет, значит м остается = 4. x div 10 = 49 div 10 = 4 условие цикла x > 5 не выполняется, выходим из цикла.

Втаком виде программа, хотя бы запустится: program i_2; const c=2; f=4; g=6; var r,p: real; begin writeln('определение площади треугольника по теореми герона'); write('нахождение площади'); readln(r); p: =(c+f+g)/2; r: =sqrt(p*(p-c)*(p-f)*(p-g)) end. но есть куча вопросов: 1) если c, f, g - стороны треугольника, то что такое - r ?   2) если r - это площадь, то как мы можем её  ввести, если мы хотим её сосчитать? 3) где вывод полученной информации (writeln( 4) треугольника со сторонами c=2, f=4 и g=6 существовать не может предлагаю отказаться от экзотических обозначений и сделать проверку на существование треугольника, а также добавить  получение данных по сторонам от пользователя: program i_2; var a,b,c,p,s: real; begin writeln('определение площади треугольника по теореме герона'); write('введите стороны треугольника: '); readln(a,b,c); if (a + b < = c) or (b + c < = a) or (a + c < = b) then writeln ('треугольника с такими сторонами не существует') else begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь треугольника равна ',s: 0: 3) end end.