Написать в паскале процедуру с изменяемым параметром. хотя бы с одним. уровень a. напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания. пример: введите три натуральных числа: 10 15 5 5 10 15 уровень b. напишите процедуру, которая сокращает дробь вида m/n. числитель и знаменатель дроби как изменяемые параметры. пример: введите числитель и знаменатель дроби: 25 15 после сокращения: 5/3

Уровень а type   num=integer; { можно поменять на real, longint, даже } procedure swap(var a,b: num); { меняет местами значения a и b } var   t: num; begin   t: =a; a: =b; b: =t end; procedure moving(var a,b,c: num); begin   if a> b then begin       swap(a,b);       if b> c then begin           swap(b,c);           if a> b then swap(a,b)       end   end   else begin       if b> c then swap(b,c);       if a> b then swap(a,b)   end end; var   a,b,c: num; begin   write('введите три числа: '); read(a,b,c);   moving(a,b,c);   writeln(a,' ',b,' ',c) end. уровень в function gcd(a,b: longint): longint; { нахождение нод } var   i: longint; begin   while b < > 0 do   begin       a : = a mod b;       i : = b; b : = a; a : = i   end;   gcd : = a end; procedure shortfraction(var m,n: longint); var   k: longint; begin   k: =gcd(m,n);   m: =m div k; n: =n div k end; var   a,b: longint; begin   write('введите числитель и знаменатель дроби: '); readln(a,b);   shortfraction(a,b);   writeln('дробь после сокращения равна ',a,'/',b) end. тестовое решение: введите числитель и знаменатель дроби: 25 15 дробь после сокращения равна 5/3

ИНФОРМАЦИЯ 10 байтов

Объяснение:

если 1 символ равен одному байту, тогда в слове ИНФОРМАЦИЯ 10 символов равен 10 байтов, надеюсь понял(-а)