Суть решения: В переменной max найдем максимальную цифру заданного числа N (в начале max=0), для этого выделяю цифры числа N и сравниваю с max если текущее значание больше max запоминаю его, после того как просмотрел все цифры числа N выхожу из цикла и печатаю максимальную цифру.
Ожог: 1. Убрать поражающий фактор. 2. Охладить место ожога. 3. Накрыть влажной повязкой. 4. Покой и противошоковые меры. Обморок: 1. Если дыхательные пути свободны, пострадавший дышит и у него прощупывается пульс (слабый и редкий), его необходимо уложить на спину и приподнять ноги. 2. Расстегнуть сдавливающие части одежды. 3. Положить на лоб пострадавшего мокрое полотенце. 4. При рвоте пострадавшего необходимо перевести в безопасное положение или хотя бы повернуть голову набок, чтобы он не захлебнулся рвотными массами. Остановка дыхания: 1. Непрямой массаж сердца. 2. Искусственная вентиляция легких. 3. Закрытие дыхательных путей инородным телом.
begin writeln('Сколько тебе лет?:'); readln(b); if b > 17 then begin writeln('В каком институте ты учишься?:'); readln(a); writeln(a, ' хороший институт'); writeln('До следующей встречи!'); end else if b <= 17 then begin writeln('В какой школе ты учишься?'); readln(a); writeln(a, ' не плохая школа'); writeln('До следующей встречи!'); end; end.
Блок-схема решения (см. файл)
Суть решения: В переменной max найдем максимальную цифру заданного числа N (в начале max=0), для этого выделяю цифры числа N и сравниваю с max если текущее значание больше max запоминаю его, после того как просмотрел все цифры числа N выхожу из цикла и печатаю максимальную цифру.