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
Если шаг не задан явно, значит он равен 1.
Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
Переводим на русский:
A или B и не C; подставляем:
Нет или да и не нет = нет или да и да.
Дальнейшее расписывание зависит от приоритета (обычно ставят приоритет И выше ИЛИ), но в любом случае получится или "нет или да", или "да и да", то есть результат - истина.
Переводим обратно на английский (интересно, при чём тут он?): true.
Технология ( урок) по другому труд