Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97
53
Так как i в цикле for-это счётчик повторений. Первое значение-начальное, второе-конечное. Как только цикл досчитает, прибавляя по единице за каждый шаг к минимальному значению, до конечного значения, он выполнится ещё раз и остановится.
Осинь обагрила свойим листтям лис.червона королева малюе краще за всих сестер . осинь-це пора витру та краси. листтячко падало на землю,що б почервив сад.в цьому роци осинь буде незабутня
Ответ:
Объяснение:
1) program z1;
var a,sum:integer;
begin
a:=0;
sum:=0;
while (a<0) or (a=0) do
begin
sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
2) program z2;
const N = 10;
var i:integer;
var b,d:real;
var a:array[1..N] of integer;
begin
for i:=1 to N do
readln (a[i]);
for i:=1 to N do
write(a[i]:4);
writeln;
for i:=1 to N do
begin
b:=sqrt(a[i]);
d:=frac(b);
if d=0 then
write (a[i]:4);
end;
end.