//Вот программа, которая кодирует слова в системах счисления от 2 до 10 //Первый ввод - число, второй - система счисления //Pascal ABC.NET v3.0
var a,i,b,r,n,j,bug:integer; s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string); begin repeat b:=a mod n; a:=a div n; str(b,se); s+=se; until (a<=n-1); end;
begin readln(slo); readln(n); for j:=1 to length(slo) do begin; a:=ord(slo[j]); preob(a,b,n,se); str(a,se); s+=se; for i:=1 to length(s) div 2 do begin; se:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=se[1]; end; write(s,'-'); slof:=slof+s; delete(s,1,length(s)); end; end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
Program massiv; uses crt; type matr=array[1..10] of integer; var a: matr; procedure vvod(var a:matr); var i: integer; begin for i:=1 to 10 do begin write ('Введите элемент массива a[',i,']'); readln(a[i]); end; end; procedure ivyvod(var a: matr); var i: integer; begin write ('Исходный массив '); for i:=1 to 10 do write (a[i],' '); writeln; end; procedure sort(var a:matr); var i,j,min: byte; vsp: integer; begin for i:=1 to 9 do begin min:=i; for j:=i+1 to 10 do if a[j]<a[min] then min:=j; vsp:=a[i]; a[i]:=a[min]; a[min]:=vsp; end; end; procedure vyvod(a:matr); var i:integer; begin write('Отсортированная последовательность массива '); for i:=1 to 10 do begin if a[i] mod 2 = 0 then write(' ',a[i]); end; end; begin vvod(a); ivyvod(a); sort(a); vyvod(a); end.
Графический планшет
Микрофон
Цифровой фотоаппарат
Цифровой микроскоп
Клавиатура
Тачпад
Джойстик
Сканер
Web-камера
Тачскрин
Мышь