30 построить блок-схему со структурой ветвления по программе : program name; var a: real; x: integer; beginwrite('введите число в битах'); readln(a); writeln('1. байт'); writeln('2. килобайт'); writeln('3. мегабайт'); writeln('4. гигабайт'); write('введите номер единицы,в которую нужно перевести'); readln(x); if x=1 then writeln(a/8,'байт')else if x=2 then writeln(a/8000,'байт')else if x=3 then writeln(a/8000000,'мегабайт')else if x=4 then writeln(a/exp(ln(8)*9),'гигабайт')else writeln('ошибка'); end. ​

murka1402    3   11.06.2019 19:15    0