procedure recursiveprime(num:integer);
var
i:integer;
begin
{тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)
i:=2;
while i<(num div 2) and (num mod i <> 0) do inc(i)
if i=num div 2 then println(num,"- простое!');
if num<60 then recursiveprime(num+1);
end;
begin
recursiveprime(4);
end.
Объяснение:
ну как-то так.. паскаля под рукой нет, лет 7 назад последний раз трогал дельфи
рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60
проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.
надеюсь мысль понятна
i,n: integer;
procedure IN1(var a,b:real;n:integer;var y:real);
var
p:real;
i:integer;
begin
y:=1;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y:=p*y;
end;
end;
procedure IN2(var a, b:real; n:integer; var y1:real);
var
p:real;
i:integer;
begin
y1:=0;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y1:=y1+p;
end;
end;
begin
write(' Введите a, b,n');
readln(a,b,n);
IN1(a,b,n,y2);
writeln('p1 ',y2:10:2);
writeln(' Введите c, b,m');
read(a,b,n);
IN2(a,b,n,y3);
writeln('s ',y3:10:2);
write(' Введите e, f,L');
readln(a,b,n);
IN1(a,b,n,y5);
writeln('p2 ',y5:10:2);
y6:=(y2+y3)/y5;
writeln(y6:8:3); end.