1. записать число 19,625 в двоичной системе счисления 2. в корневом каталоге диска a: зарегистрированы 10 файлов и десять папок, каждая из которых содержит по 10 файлов. сколько всего файлов в a: \

284

408

Посмотреть ответы 2

Ответы на вопрос:

ala4ka

Информатика

4,4(16 оценок)

1.19625 в двоичной системе счисления 100110010101001 2. 110 файлов , 120 файлов + папок

bauka077

Информатика

4,6(4 оценок)

Var ptr: integer; function getword(s: string): string; // возвращает очередное слово из строки s или пустое значение, // если в строке больше нет слов. // перед вызовом позиция начала слова указывается переменной ptr. // перед выходом ptr устаналивается на границу следующего слова // ptr=0 означает, что вся строка просмотрена. var n, p: integer; begin n : = length(s); if (ptr > = n) or (ptr=0) then begin ptr : = 0; result : = '' end else begin p : = posex(' ', s, ptr); if p > 0 then begin result : = copy(s, ptr, p - ptr); ptr : = p + 1 end else begin result : = copy(s, ptr, n - ptr + 1); ptr : = 0 end end end; var s1, s2, s: string; n: integer; begin writeln('вводите строку'); readln(s1); ptr : = 1; s2 : = ''; repeat s : = getword(s1); n : = length(s); if n > 0 then if (s[1] < > 'о') or (s[n] < > 'о') then s2 : = s2 + s + ' ' until n = 0; n : = length(s2); if s2[n] = ' ' then s2 : = copy(s2, 1, n - 1); writeln('результирующая строка: ', s2) end. тестовый прогон: вводите строку в это окно отлично виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину. результирующая строка: в это виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.