Спросить у пользователя число в десятичном виде от 0 до 254. вывести это число в двоичном виде, в виде восьми бит. могут быть выведены незначащие нули. пример: 253 ответ: 11111101
Var a,b:integer; s:string;beginreadln(a);if (a>=0) and (a<=254) thenbeginb:=8;while true dobegins:=a mod 2+s;a:=a div 2;if b=1 then break;b:=b-1;end;endelsewriteln('Число не находится в промежутке от 0 до 254');writeln('Двоичное число: ',s);end.
Microsoft QBasic m = 10 n = 15 DIM a(1 TO m, 1 TO n) AS INTEGER DIM x(1 TO n) AS INTEGER, y(1 TO m) AS INTEGER RANDOMIZE TIMER CLS PRINT "Исходная матрица" FOR i = 1 TO m FOR j = 1 TO n a(i, j) = INT(99 * RND) PRINT USING "###"; a(i, j); NEXT j PRINT NEXT i INPUT "Строка для Х и столбец для Y (через запятую): ", p, q PRINT "Вектор-строка Х" FOR j = 1 TO n x(j) = a(p, j) PRINT USING "###"; x(j); NEXT j PRINT PRINT "Вектор-столбец Y" FOR i = 1 TO m y(i) = a(i, q) PRINT USING "###"; y(i); NEXT i PRINT
