Const
n = 6;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if j < i then a[i, j] := 0
else a[i, j] := 1;
write(a[i, j])
end;
writeln;
end;
end.
Тестовое решение:
111111
011111
001111
000111
000011
000001
Решение на фотографии в приложении. Два варианта.
К периферийным устройствам, подключаемым к компьютеру можно отнести любое оборудование подключаемое к системному блоку при помощи различных интерфейсов и выполняющее различные функции.
К стандартной периферии относится такое оборудование как клавиатуры, мыши, игровые устройства, джойстики, рули, принтеры, сканеры и МФУ. К нестандартным периферийным устройствам, подключаемым к компьютеру или ноутбуку, относится специализированное оборудование, работающее под управлением компьютера.
// FreePascal
var
n, k, s: integer;
a: array of integer;
function IsPrime(n: integer): boolean;
var
i: integer;
begin
if n <= 1 then
Exit(False)
else
if n <= 3 then
Exit(True)
else
if (n mod 2 = 0) or (n mod 3 = 0) then
Exit(False);
i := 5;
while (i * i) <= n do
begin
if (n mod i = 0) or (n mod (i + 2) = 0) then
Exit(False);
i := i + 6;
end;
Exit(True);
end;
begin
s := 0;
write('n = ');
readln(n);
SetLength(a, n);
for k := 0 to (n - 1) do
begin
write('a[', k, '] = ');
readln(a[k]);
if IsPrime(k) then
s := s + a[k];
end;
writeln('Ответ: ', s);
end.
А1 - 2
а2 -3
а3 - 3,4,5
а4 - 1
а5 - 3
а6 - 4
а7 - 5
а8 - 4
а9 - 1,2,3,4,5
а11 - 10
а12 - разрядом???
