Найти значение функции f(k)/k для каждого k=2,3,...N где f(k) - кол-во простых чисел от 2 до k. Решить на паскале или на псевдокоде. Ну или хотя
10-11 класс
|
бы объясните алгоритм.
var k,n:word;
function f(x:word):word;
var n,i,j:word;
begin
n:=0;
for i:=2 to x do
for j:=2 to i do
if i mod j = 0 then
if i<>j then break else inc(n);
f:=n;
end;
begin
write('Введите n = ');readln(n);
for k:=2 to n do
writeln(k-1,' = ',(f(k)/k):0:2);
end.
Другие вопросы из категории
понимают перестановку первого и последнего элементов этой части, второго и предпоследнего и т.д. а вот само задание ==> Инвертировать часть массива, расположенную между самым левым минимальным в первой половине массива и самым правым максимальным во второй половине массива.
Дисковое пространство используется при распределении памяти:
(нужно ответить на несколько вариантов ответа)
1. Фиксированными разделами
2. Страничном распределении
3. Разделами переменной величины
4. Сегментном распределении
5. Перемещаемыми разделами
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
б) вычисления значения функции х = 12а2 + 7а — 16 при любом значении а.
2.
даны катеты прямоугольного треугольника. Найти его гипотенузу
Значения параметра х (по одному значению для каждого промежутка) задать самостоятельно.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
значения аргумента x. Учесть вывод сообщения о невозможности вычисления значения функции