var a:array [1..20] of integer;
i,k:integer;
BEGIN
k:=301;
for i:=1 to 20 do begin
while (k mod 17<>0) and (k mod 13<>0) do
k:=k+1;
a[i]:=k;
k:=k+1;
end;
for i:=1 to 20 do
write(a[i],' ');
end.
2^6 = 64
так как один бит может быть 0 или 1
Нет.Оно не является компилируемым языком программирования
const
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>
Что это за фигуры -_- и причем тут информатика