Сколько натуральных чисел меньших 32768 существует, чья запись в двоичной системе счисления содержит нечетное количество единиц
Сколько натуральных чисел меньших 32768 существует, чья запись в двоичной системе счисления содержит нечетное количество единиц и является симметричным числом?
<span>1. Базы данных — это:
A) информационные структуры, хранящиеся во внешней памяти; методом исключения
2. В коробке меньше 9, но больше 3 шаров. Сколько шаров может быть в коробке?
D) 5
3. Какие атрибуты (признаки) объекта должны быть отражены в
информационной модели, описывающей хобби ваших одноклассников, если эта
модель позволяет получить ответы на следующие вопросы:
- Каков возраст всех детей, увлекающихся компьютером?
- Каковы имена девочек, увлекающихся пением?
- Каковы фамилии мальчиков, увлекающихся хоккеем? E) фамилия, имя, пол, возраст, хобби?
методом исключения </span>
Program Task; Const n = 15; Var a: Array [1..n] of Integer; i: Integer; Begin Randomize; For i := 1 To n Do a[i] := Random(30 - 20 + 1) + 20; WriteLn('Массив:'); For i := 1 To n Do Write(a[i], ' '); WriteLn; For i := 1 To n Do If a[i] Mod 2 = 1 Then a[i] := 31; WriteLn('Результат:'); For i := 1 To n Do Write(a[i], ' '); ReadLn; End.
begin setLength(a, 11); for i := 0 to 10 do begin a[i] := round(random(55)); write(a[i]:6); end;
writeln(#13, #13, '-=1=-'); for i := 0 to 10 do if (a[i] mod 2 = 0) then s := s + a[i]; writeln(s);
writeln(#13, #13, '-=2=-'); s := 0; for i := 0 to 10 do if (a[s] > a[i]) then s := i; for i := s to 9 do a[i] := a[i + 1]; setLength(a, 10); for i := 0 to 9 do write(a[i]:6); end.
begin write('Введите строку: '); readln(str); write('Введите символ: '); readln(ch); for i:=1 to Length(str) do if str[i] = ch then count:=count+1; writeln('Символов в строке: ', Length(str)); writeln('Ч<span>исло вхождений в строку введенного символа:</span>', count); end.