2)
const
n = 20;
var
a : array [1..n] of integer;
b,i,num : integer;
begin
//Формирование массива пропускаю
readln (b);
nom := 0;
for i := 1 to n do //Поиск номера элемента
if a[i] = b then // , равного b
num := i;
if num <> 0 then
writeln ('Есть, его порядковый номер=',num)
else
writeln ('Нет');
end.
Var
A :array[2..20] of integer;
i : integer;
begin
for i:=1 to 22 do
for i:=1 to 22 do
begin
A[i]:=A[A+2];
Writeln(a[i]:4);
end;
end.
Просто впиши ссылку на существующий сайт, через несколько минут они сами выделяться и будет возможность перейти на ссылку, но не уверена, что именно в блокноте это работает. Попробуй другой текстовой редактор, если не получится.
Получилось так, что чертежник, после выполнения данной команды, оказался в исходной точке. прошу прощения, если это не правильный ответ
Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>