Впаскале. вывести на экран в порядке возрастания все цифры, не являющиеся цифрами данного десятичного натурального числа (переменной целого типа). например, число 125657 не содержит цифры: 0, 3, 4, 8, 9.
begin readln(n); s := inttostr(n); for c := '0' to '9' do begin b := true; for i := 1 to length(s) do if s[i] = c then begin b := false; break; end; if b then writeln(c); end;
Смотря в какой кодировке. Если кодировка КОИ-8, значит один символ кодируется, то есть весит 8 бит. И так всегда. Значит: 2000символов×8бит=16000бит=16000:8=2000байта(так как что бы перевести биты в байты, нужно разделить кол-во битов на 8, а что бы перевести в килобайты, нужно ещё разделить и на 1024).Но тут в килобайты перевести нельзя. Невозможно. размер сообщения в кодировке КОИ-8. Если же кодировка Unicode, то это значит, что один символ кодируется, то есть весит 16 бит. Значит: 2000символов×16бит=32000бит=32000:8=4000байт. Как и в первом случае, перевести тут в килобайты нельзя. Невозможно. размер сообщения в кодировке Unicode.
1. Почему работа компьютера невозможна без операционной системы? Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере? 2. Какие операционные системы вы знаете? Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS 3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы,
4. Какие системы программирования вам известны? Pyton, C++ 5. Для специалистов какой профессии предназначены системы программирования? Программист, Специалист в области кибербезопасности
s: string;
i, n: integer;
c: char;
b:boolean;
begin
readln(n);
s := inttostr(n);
for c := '0' to '9' do
begin
b := true;
for i := 1 to length(s) do
if s[i] = c then begin
b := false;
break;
end;
if b then writeln(c);
end;
end.