Программа на языке паскаль. дано натуральное n . определить, является ли оно простым.

var n,i: integer;

begin

  read(n);

  for i : = 2 to n-1 do

    if n mod i = 0 then begin

          writeln('ne prostoe');

            exit;

      end;

  end;

  writeln('prostoe');

end.

хочу , что до настоящего времени эта для любого натурального n численно не ! . то есть, до сих пор не написана программа, которая, работая на самом мощном компьютере, могла бы определить простоту числа n за приемлемое время(не сотни и тысячи лет, как сейчас). конечно, эти n - большие. если  бы кто нибудь написал такую программу, то рухнула бы вся банковская система, и все отрасли, включая военные, так как везде  применяются алгоритмы шифрования данных, основанные на простых числах и подобрать шифр можно было бы за приемлемое время. вот такая с этой сложной .

 

что касается "детского" варианта, наверное самый простой алгоритм - решето эратосфена. да, красивое(но ресурсное) решение может получиться с использованием рекурсии(не знаю, допускает ли рекурсию школьный паскаль, но поинтересуйтесь, что это такое).

 

текст программы приводить не буду, он, вероятно, опубликован в каждом втором букваре по программированию. 

Вихідні дані:

Обсяг спожитої електроенергії за розрахунковий період (календарний місяць) – 196 кВт*год.

Тарифи на електричну енергію:

І блок (до 100 кВт∙год. (включно)) – 36,6 коп./кВт∙год;

ІІ блок (понад 100 кВт∙год. до 600 кВт∙год. (включно)) - 63 коп./кВт∙год;

ІІІ блок (понад 600 кВт∙год.) – 140,7 коп./кВт∙год

Вартість спожитої електроенергії за розрахунковий період (календарний місяць) з ПДВ:

100 × 0,366 + 96× 0,63 = 97,08 грн.

За наявності пільги - 50% при нормі пільгового споживання на місяць – 90 кВт*год. розрахунок буде наступним:

вартість обсягу електроенергії в межах І блоку з врахуванням пільги:

90×0,366×0,5 + 10×0,366 + = 20,13 грн;

вартість обсягу електроенергії в межах ІІ блоку:

96×0,63 = 60,48 грн.

Вартість спожитої електроенергії за розрахунковий період (календарний місяць) з ПДВ:

20,13 + 60,48 = 80,61 грн.

GameLogo. стр. 12-13. Циклы.

переменная х

повторить 155 {

x = x + 1

цвет RGB(x, x, x)

вперёд х

направо 75 }

Здесь сначала х будет равен нулю, затем на первом шаге станет равен 1, затем 2 и т. д.

В итоге имеем один вид фигуры.

Далее предлагается специальная форма записи (якобы вариант вышеприведённой записи):

переменная х

повторить для х = 1 до 155 {

x = x + 1

цвет RGB(x, x, x)

вперёд х

направо 75 }

Но фигура уже не такая как в первом случае.

Изменил даже цикл, записав его так:

повторить для х = 0 до 155 {

и всё равно фигура не такая, как в первом случае.

Вы могли бы объяснить – в чём дело?