составить программку которая будет выискать все обыкновенные числа из интервала от

Ответ:

procedure recursiveprime(num:integer);

var

i:integer;

begin

тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)

i:=2;

while ilt;(num div 2) and (num mod i lt;gt; 0) do inc(i)

if i=num div 2 then println(num,"- простое!');

if numlt;60 then recursiveprime(num+1);

end;

begin

recursiveprime(4);

end.

Изъяснение:

ну как-то так.. паскаля под рукою нет, лет 7 вспять заключительный раз трогал дельфи

рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60

проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.

надеюсь идея понятна