If (x>=-5) and (x<5) then label1.caption
(Принадлежит') else Label1.caption ('Не
принадлежит');
Х=1 Принадлежит
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> double x,y,R = 0;</span>
<span> cout << "Введите координаты точки и её радиус:\n";</span>
<span> cin >> x >> y >> R;</span>
<span> if (x*x+y*y <= R*R)</span><span> cout << "Точка попадает в круг\n";</span>
<span> else</span><span> cout << "Точка не попадает в круг\n";</span>
<span>}</span>
<span>var
a,b:integer;
procedure Poisk(a,b:integer);
begin
if a > b then
writeln('Меньшее число ', b);
if a=b then
writeln('Равны');
if a < b then
writeln('Меньшее число ', a);
end;
begin
writeln('Введите числа');
readln(a,b);
Poisk(a,b);
end.</span>
Витя - х
Костя - y
3х = y
x = y - 18
находим y и х:
y=3y-54
<u>y=27</u>, значит
<u>x=27-18=9</u>
<u>Ответ: Костя решил 27 задач, Витя решил 9 задач</u>
program massive;
var i,j,s,min,n:integer;
A:array [1..10000] of integer;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
min:=999;
for i:=1 to n do
if A[i]<min then begin
min:=A[i];
s:=i;
end;
for j:=2 to i do
if j mod 2=0 then A[j]:=0;
for i:=1 to n do
write(A[i],' ');
end.