До каких пор будут выполняться операторы в теле цикла while (x < 100)? a) Пока х меньше или равен стам b) Пока х строго меньше ста c) Пока х больше ста d) Пока х равен стам
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
x, y = map(float, input().split())
# f - формула
f1 = f2 = f3 = f4 = False
F1 = (x-4)*(x-4) + (y-4)*(y-4)
F2 = x*x + (y-3)*(y-3)
F3 = (x-3)*(x-3)+y*y
if (x * x + y * y <= 25) and (x * x + y * y >= 9):
f1 = True
if ((x * x + y * y <= 25) and (y > x + 5)) or ((x * x + y * y <= 25) and (y < x - 5)) \
or ((x * x + y * y <= 25) and ((x > 0 and y > 0) or (x < 0 and y < 0))):
f2 = True
if F1 == 9 or F2 == 9 or F3 == 9 or ((F1 <= 9 and F2 > 9 and F3 > 9) or (F2 <= 9 and F1 > 9 and F3 > 9) or (F3 <= 9 and F1 > 9 and F2 > 9)):
f3 = True
if (x * x + (y - 3) * (y - 3) <= 16) and (y <= 2 or y >= 5):
f4 = True
print("1:", f1)
print("2:", f2)
print("3:", f3)
print("4:", f4)
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.