Program ez_1;
var s: integer;
a: array [1..9] of integer;\
i: byte;
begin
a[1] := 5;
for i := 1 to 9 do
a[i] := a[1] + 2 * i;
for i := 1 to 9 do
begin
s := 3 * (a[i] * a[i]);
writeln(s);
end;
end.
2)
program ez_2;var
s, m, b: integer;
a: array [1..9] of integer;
i: byte;
begin
readln(s);
for i := 1 to s do
begin
read(a[i]);
if a[i] < 0 then m := m + 1
else b := b + 1;
end;
writeln(b, ' Положительных чисел');
writeln(m, ' Отрицательных чисел');
end.
Вроде так. Если что-то не так. Пиши.
Var
A,N:integer;
P:real;
Begin
Write('A = ');
ReadLn(A);
Write('N = ');
ReadLn(N);
P:=1;
For N:= 0 to N-1 do
P:=P*(A+N);
WriteLn('P = ',P)
End.
С помощью знака $ ссылка на адрес ячейки может быть абсолютной и смешанной. Относительная ссылка знака $ не имеет.
Варианты 2 и 4 - содержат смешанную ссылку.
Вариант 3 - абсолютную.
Ответ:
информатика помогла человеку много в чем, благодаря информатики появились компьютеры, ноутбуки, телефоны и т.д. А при информатики человек начил собирать мощные запчасти на компьютер на телефон и т.д .
Объяснение:
короч как-то так