var n,i,k : integer; function Prost (a : integer) : boolean; //Возвращает true если число простое var i,b : integer; r : boolean; begin r := true; i := 2; b := a div 2; While (i <= b) and (r) do begin if a mod i = 0 then r := false; i := i +1; end; Result := r; end;
function chet (l : integer) : integer; //Определяет кол-во var i,s : integer; //возможных произведений // в числовой последовательносьти //заданной длины begin s := 0; for i := 0 to k do s := s +(k - i); result := s; end; begin readln (n); k := 0; for i := 2 to n do if prost(i) then begin k := k +1; //write (i,' '); // Вывод простых чисел(если надо, то раскоменьтить) end; writeln (); writeln ('Кол-во простых чисел на диапазоне = ',k); writeln ('Кол-во произведений ',k,' различных чисел : ',chet(k)); end.
Вроде работает, хотя вероятно есть более эффективный алгоритм. Единицу не учитывал как простое. Блок схему рисовать не буду - геморойной, да и не силен я в этом
Просто попытаюсь объяснить алгоритм
1) Мы находим все простые числа на диапазоне от 1 до n (выполняется функцией (prost), и перебором. 2) Исходя из кол-ва найденных простых чисел мы можем найти кол-во их произведений. Т.к все числа различны и идут в порядке увеличения. Это делается с функции (chet)
Южные материкиК группе Южных материков относятся Южная Америка, Африка, Австралия, обладающие многими общими чертами природы в силу сходства их географического положения и сопряженной истории формирования в составе Гондваны. Особое положение занимает Антарктида. Этот материк расположен целиком в Южном полушарии и является частью распавшейся Гондваны. Как осколок Южного суперконтинента Антарктида имеет явные черты сходства с другими гондванскими материками в строении поверхности (в геологическом строении и рельефе подледной поверхности). Однако особое географическое положение континента определяет многие уникальные черты его природы. В характеристике компонентов природы Южных материков Антарктиде выделяется особое место.Южные материки омываются водами всех океанов, кроме Северного Ледовитого океана. Антарктида не имеет сухопутных границ, как и Австралия, которая ближе всего связана с Евразией через своеобразный мост — острова и мелководные моря и проливы Малайского архипелага, которые традиционно относят к материку Евразии. Африка отделена от Евразии узкими Гибралтарским проливом и Красным морем. На крайнем северо-востоке на Суэцком перешейке граница между этими материками проходит по искусственному сооружению — Суэцкому каналу. Южная Америка граничит с Северной на Панамском перешейке. Что именно? Пиши подробнее!
program calc;
var
sum,raz,umn,celx1,celx2,ostx1,ostx2,korenx1,korenx2:real;
N,x1,x2:integer;
begin
write('Введите номер операции: ');
readln(N);
case N of
1:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
sum:=x1+x2;
writeln('Сумма чисел = ',sum);
end;
2:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
raz:=x1-x2;
writeln('Разность чисел = ',raz);
end;
3:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
umn:=x1*x2;
writeln('Произведение чисел = ',umn);
end;
4:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
celx1:=x1 div x2;
celx2:=x2 div x1;
writeln('Целая часть от деления x1 на x2 = ',celx1);
writeln('Целая часть от деления x2 на x1 = ',celx2);
end;
5:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
ostx1:=x1 mod x2;
ostx2:=x2 mod x1;
writeln('Остаток от деления x1 на x2 = ',ostx1);
writeln('Остаток от деления x2 на x1 = ',ostx2);
end;
6:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
korenx1:= sqrt(x1);
korenx2:= sqrt(x2);
writeln('Квадратный корень числа x1 = ',korenx1);
writeln('Квадратный корень числа x2 = ',korenx2);
end;
else
writeln;
write('Введен неизвестный номер операции');
end;
end.
Объяснение: