корл1ц
16.12.2022 02:00

1. Информационный объѐм статьи, набранной на компьютере, составляет 15 Кбайт. Определите, сколько страниц содержит статья, если известно, что на каждой странице 32 строки, в каждой строке 48 символов и каждый символ кодируется 16 битами (одна из кодировок Unicode).
1) 15 2) 10 3) 8 4) 5
2. Для какого из указанных значений числа X ЛОЖНО выражение:
( X > 12 ) ИЛИ НЕ ( X > 11)?
1) 11 2)12 3) 13 4) 14
3.Для какого из приведѐнных имѐн ИСТИННО высказывание:
НЕ (Первая буква гласная) И НЕ (Последняя буква согласная)?
1) Иван 2) Даниил 3) Семѐн 4) Никита

4.Чертѐжнику был дан для исполнения следующий алгоритм:
Повтори 3 раз
Сместиться на (1, –3) Сместиться на (–4, 1) Сместиться на (1, 1) конец
На какую одну команду можно заменить этот алгоритм, чтобы Чертѐжник оказался в той же точке, что и после выполнения алгоритма?
1) Сместиться на (–6, –3) 3) Сместиться на (6, –3)
2) Сместиться на (–2, –1) 4) Сместиться на (6, 3)

5. Определите значение переменной а после выполнения данного алгоритма: a := 20 b := 1 a := (a+b) div 3 b := a-2*b a := a-b
1) 15 2) 18 3)2 4) 3

6. Определите значение переменной c после выполнения следующего фрагментаалгоритма a := 17 b := 20 a := 3 * a - b
если a > b
то c:= 5 * a - b иначе c:= 5 * a + b все
1)130 2)131 3)135 4)175

7. Определите, что будет напечатано в результате работы следующей программы.
var a, k : integer;
begin a := 40; for k := 2 to 5 do a := a – k;
write (a); end.
1)10 2)26 3) 27 4) 15

8. Некоторое число в двоичной системе счисления записывается как 1111011. Запишите это число в десятичной системе.
1)112 2) 127 3) 122 4) 123

9. Пользователь работал с каталогом E:\Фильмы\Мультики\Золушка. Сначала он поднялся на один уровень вверх, затем ещѐ раз поднялся на один уровень вверх и после этого спустился в каталог Аудио, далее спустился в каталог Песни. Укажите полный путь каталога, в котором оказался пользователь.
1) E:\Аудио\Песни 3) E:\Фильмы\Мультики\Аудио\Песни
2) E:\Фильмы\Аудио\Песни 4) E:\Фильмы\Песни\Аудио​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Музалевская
08.11.2022 22:39
Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. Так же мы создаем массив-счетчик b (у него индексами являются сами числа, а элементами - количество этого числа в массиве А), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). В конце мы смотрим максимальное число из массива-счетчика. Вуаля!

Вот пример программы на паскале ABC:

var a:array [1..1000000] of integer; 
b:array [1..10] of longint;   
c:integer;   
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n); 
max:=0; 
for i:=1 to 10 do 
b[i]:=0; 
for i:=1 to n do  begin 
a[i]:=random(10)+1; 
write(a[i],' '); 
b[a[i]]:=b[a[i]]+1 
end; 
for i:=1 to 10 do if b[i]>max then 
begin 
c:=i; 
max:=b[i] 
end; 
writeln; 
writeln('Чаще всего в массиве встречается число ',c)
end.
0,0(0 оценок)
Ответ:
nastuastar12
01.10.2021 07:12
Немного теории.
Для того, чтобы избежать переполнения разрядной сетки, значение квадрата натурального числа не должно превышать максимального числа, представимого выбранным типом данных.
В языке Паскаль числа типа longint записываются в четырех байтах в дополнительном коде, т.е. максимальное значение числа не может превышать 2³¹-1. Тогда максимальное натуральное число, квадрат которого мы можем вычислить, равно целой части от величины:
\displaystyle \lim:= \sqrt{2^{31}-1} \approx 2^{31/2}=2^{15.5}= e^{15.5\cdot ln(2)} 

//PascalABC.Net 3.0, сборка 1066
var
  s:string;
  i,n,lim,l:longint;
begin
  lim:=Trunc(exp(15.5*ln(2)));
  Write('Введите номер позиции: '); Read(n);
  i:=0; l:=0;
  while (l<n) and (i<=lim) do begin
    Inc(i); Str(i*i,s); l:=l+Length(s);
  end;
  if i<=lim then Writeln('Искомая цифра- ',s[Length(s)-l+n])
  else Writeln('Решения в типе данных longint невозможно')
end.

Тестовое решение:
Введите номер позиции: 4
Искомая цифра- 1

Введите номер позиции: 33
Искомая цифра- 5
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота