//Pascal ABC.NET 3.1 сборка 1256
uses
GraphABC;
Var
n:integer;
procedure square(var n:integer);
begin
readln(n);
rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2);
end;
procedure points(n:integer);
Var
x,y,i:integer;
begin
i:=0;
while i<1000 do
begin
x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1);
y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1);
setpixel(x,y,rgb(random(255),random(255),random(255)));
inc(i);
end;
end;
begin
randomize;
square(n);
points(n);
end.
В режиме разметки страницы можно увидеть границы страниц.
Var x ,y: integer;
begin
for x:=-4 to 4 do
begin
y:=2*x*x*x-7*x;
writeln('При x = ', x, ' y = ', y);
end;
<span>end.</span>
2 задача:утверждение 1 верно т.к в остальных случаях(именно 2-3)возможен такой исход,что дочка может приехать с мамой,что означает их равнозначность.
3 задача:САДВ
1 задача:в условии сказано 6 участников,а перечислено только 5.Поэтому можно сказать,что условие задачи не является корректным
= это сравнение
:= это оператор присваивания