Program Resheto;
const n=954530;
var i,j,last,k:integer;
b:array[1..n] of boolean;
begin
for j:=1 to n do b[j]:=true; ///сначала все числа не вычеркнуты
b[1]:=false; ///единицу вычеркиваем сразу
i:=2;k:=0; ///k - количество найденных простых чисел
while i*i<=n do
begin
for j:=i+1 to n do
begin
if (b[j]) then ///если число уже вычеркнуто,то ничего не делаем
begin
if (j mod i=0) then begin last:=j; b[j]:=false; end; ///если число делится,то запоминаем его в last и вычеркиваем из решета
end;
end;
inc(i);
end;
for j:=2 to n do if b[j] then inc(k); ///считаем количество
writeln; writeln('Последнее вычеркнутое: ',last);writeln('Найдено простых чисел: ',k);
for j:=2 to n do if b[j] then write(j,' '); ///выводим все простые числа через пробел
end.
1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
a[i] := random(10);
write (a[i], ' ')
end;
writeln;
writeln('b:');
for i:=1 to 8 do
begin
b[i] := a[i]*a[i];
write (b[i], ' ')
end;
end.
Пример:
<span>a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49
2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
a[i] := random(50)+10;
write (a[i], ' ')
end;
writeln;
for i:=1 to 9 do
if a[i] mod 2 = 0
then writeln(a[i], ' - четное число')
else writeln(a[i], ' - нечетное число')
end.
Пример:
a:
55 51 18 35 33 56 15 56 47
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число </span>
Функция sqr(x) служит для возведения аргумента х в квадрат, поэтому представим a¹⁰ в виде максимально возможного набора операций возведения в квадрат.
a¹⁰ = a²·a⁸ = a²·(a⁴)² = a²·[(a²)²]²
var
a:real;
begin
Write('a=');
Read(a);
Writeln(a,'^10=',sqr(a)*sqr(sqr(sqr(a))))
end.
Тестовые решения
a=2
2^10=1024
a=3.18
3.18^10=105747.765633159
a=10
10^10=10000000000
a=318.53
318.53^10=1.07523505784868E+25
1) К прикладным программам относятся:
✔ Текстовые редакторы (подходят все варианты - они все взаимодействуют с пользователем)
✔ Графические редакторы
✔ Бухгалтерские программы
✔ Табличные процессоры
2) В игре "Поле чудес" загадали слово из 16 букв. Вы просите открыть вторую букву. Когда вам ее открыли, какое количество информации вы получили?
1 16 бит
2 1 байт
✔ 4 бит (2^4 = 16)
4 8 бит
3) У матери было четыре сына: Миша, Ваня, Толя, Гоша. Двое из них близнецы. Известно, что Толя старше Миши, который моложе Гоши. Толя моложе Вани, который старше Гоши. Кто из детей близнецы?
Из первого утверждения Толя > Миша и Гоша > Миша, из второго Ваня > Толя, Ваня > Гоша. Тогда Ваня > [Толя, Гоша] > Миша, Толя и Гоша - близнецы.
4) Какие из определений относятся к дисплейному процессору?
✔ составляющее видеокарты
2 электронное энергозависимое запоминающее устройство
3 устройство для ввода в компьютер изображения
✔ управляет работой дисплея
5) Что из нижеперичисленного можно отнести к информационным моделям?
✔ манекен
✔ карточка больного
✔ карта местности
✔ модель застройки городп
6) Какой символ необходимо разместить перед запросом в строке поиска в интернете, чтобы было обязательное присутствие всех слов в найденных документах?
1 & (это не указывается перед запросом)
✔ +
3 ! (это "не")
4 * (это замена любого слово в цитате
7) Ты работал в каталоге C:\DOOL\FORS1\DDD_Модель. Затем перешел на один уровень выше в дереве каталогов, спустился в подкаталог DDD_Рок и удалил из него файл coni.22. Назовите полное имя файла, который вы удалили.
Изначально были в C:\DOOL\FORS1\DDD_Модель, подняли на уровень выше C:\DOOL\FORS1, спустились в подкаталог C:\DOOL\FORS1\DDD_Рок и удалили файл C:\DOOL\FORS1\DDD_Рок\coni.22
