Решить две при кругов эйлера (см. стр. 27 учебника, последний абзац в качестве ответа во второй необходимо не только указать число веб-страниц, которое будет найдено в результате выполнения того или иного запроса, но и сделать соответствующий рисунок с закрашенной искомой областью. 1. даны запросы к поисковой системе: а. мухи | (стрекозы & муравьи) б. муравьи | стрекозы | мухи в. стрекозы & мухи & муравьи необходимо представить результаты выполнения этих запросов с трёх рисунков кругов эйлера и выстроить их в порядке возрастания (от меньшего к большему, например, «бва», или «авб»). 2. в языке запросов к поисковой системе для обозначения логической операции «или» используется символ «|», а для логической операции «и» – символ «& ». в таблице запросы и количество найденных по ним страниц некоторого сегмента сети интернет: мадрид & париж - 475 тыс. страниц мадрид & (берлин | париж) - 905 тыс. страниц мадрид & берлин - 555 тыс. страниц компьютер выдаёт число, равное количеству страниц (в тысячах), которое будет найдено по следующему запросу: мадрид & париж & берлин укажите целое число, которое напечатает компьютер. считается, что все запросы выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.
Ответы
2) 7 выведет 1
3)
11 строка, поменять на k := k + 1;
14 строка заменить на if n = 1 then
Рабочий код
var
n, k: integer;
begin
read(n);
k := 0;
while n mod 7 = 0 do
begin
k := k + 1;
n := n div 7;
end;
if n = 1 then
writeln(k)
else
writeln('He существует')
end.
Правильное решение данной задачи
const
divider = 7;
var
n: integer;
k: real;
begin
read(n);
k := ln(n) / ln(divider);
if round(k) = k then
writeln(round(k))
else
writeln('He существует');
end.
ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Варианты ответов:123к объекту не преминяли модификаторы
