Составить программу на языке паскаль авс, которая проверит вес по следующему условию: для мужчин: рост-100; для женщин: рост-110; программа должна выводить: 1. нужно поправиться 2. вес нормальный 3. нужно похудеть

Var       a, b, n, i: integer; begin       readln(a, b);       for i : = a to b do       begin               n : = i;               write(n);               while n < > 1 do               begin                       if (n mod 2) = 0 then                               n : = n div 2                       else                               n : = (3 * n + 1) div 2;                       write(' -> ', n);               end;               writeln;                     end; end. чесно передрано с некого сайта и доработано под

Файл --> a --> б если разрешение файла увеличили в три раза, а частоту дискретизации уменьшили в пять раз, значит объем файла был увеличен в три раза и уменьшен в пять. время передачи изменяется  пропорционально объему файла, то есть, к примеру, увеличив объем в три раза, время передачи будет увеличено также в три раза. в пункт а файл был передан за 50 секунд. определим время передачи в пункт а нового (изменённого) файла. 50 * 3 / 5 = 30 секунд. то есть если бы мы передавали измененный файл в пункт а, то он был бы передан за 30 сек.  пропускная способность между а и б в шесть раз выше, значит из пункта а в пункт б файл был передан за 30 / 6 = 5 секунд.