String6. Дан символ C, изображающий цифру или букву (латинскую или рус- скую). Если C изображает цифру, то вывести строку «digit
String6. Дан символ C, изображающий цифру или букву (латинскую или рус- скую). Если C изображает цифру, то вывести строку «digit», если латин- скую букву — вывести строку «lat», если русскую — вывести строку «rus». В паскале пожайлуста помогите не могу сделать
Var c:char; begin write('Введите символ: '); readln(c); case c of '0'..'9' :writeln('digit'); 'A'..'Z','a'..'z':writeln('lat'); 'А'..'Я','а'..'я':writeln('rus'); else writeln('Другой символ'); end; end.
program string6; var i: integer; f: boolean; R: array[1..33] of WideChar = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ь', 'ы', 'ъ', 'э', 'ю', 'я'); C: WideChar; begin f := False; readln(C); if IsNumber(C) begin writeln('digit'); f := True; end else for i := 1 to 33 do if R[i] = C then begin writeln('rus'); f := True; break; end; if not(f) then writeln('lat'); end.
Дискета (правда уже устарела), жёсткий магнитный диск (винчестер), оптические носители информации (CD и DVD диски), ещё сюда наверно можно отнести флеш накопитель.
Пояснение: <span>Существует 16 двоичных слов длины 4 Т.к. среди них есть слова, содержащие 1 или 3 единицы, то в нашем коде нужно использовать кодовые слова с длиной больше, чем 4 Слов длины 5 достаточно Искомые кодовые слова можно получать, например, добавляя к каждому из 16 возможных двоичных слов справа "бит четности", равный 0, если 4-значное двоичное слово содержит четное количество единиц, и равный 1 в противном случае Например, двоичное слово 0000 преобразуется в 00000, а двоичное слово 1011 – в 10111</span>
3D от англ 3-dimentional (Трехмерный). 3D Модель - изображение какого-либо объекта в 3-х мерном пространстве, то есть у которого есть 3 измерения: длина, ширина, высота. 3D моделью можно считать любой предмет окружающего мира, так как у всех окружающих нас предметов есть длина, ширина и высота.