===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>
Я переписал эти задания на удобный мне язык программирования и задал, чтобы программа выдавала значения переменных при каждом выполнении цикла. И в конце выдавала результат. Если вам это поможет, то здорово.
===== PascalABC.NET =====
begin
var (x, y) := ReadReal2('Введите X, Y:');
if (x * x + y * y <= 9) and (x * x + y * y >= 4) and
(x <= 0) and (y >= 0) or
(x * x + y * y <= 4) and (x >= 0) and (y <= 0) then
Writeln('Да')
else
Writeln('Нет')
end.