<span>Windows 2000 Advanced Server поддерживает до 8 Gb памяти. А многопроцессорность в том время было популярнее многоядерности, думаю они все поддерживают столько процессоров</span>
Жилой, есть комнаты, окна, крыша,этажи, стенки, ступеньки, двери
1)
var
x, n, i: integer;
flag: boolean;
begin
read(n);
flag := false;
for i := 1 to n do
begin
read(x);
if((x mod 10 <> 1) and (x mod 2 <> 0)) then
begin
flag := true;
break;
end;
end;
if(flag) then write('YES')
else write('NO')
end.
2)
var
x, n, i, count: integer;
begin
count := 0;
read(n);
for i := 1 to n do
begin
read(x);
if((x mod 3 = 0) and (x mod 2 <> 0)) then count := count + 1;
end;
write(count);
end.
Program n1;
Uses CRT;
Var k,i: integer;
begin
k:=1;
For i:=1 to 10 do
k:=k*i;
writeln(k);
end.
блок-схема вложена.
Записи в блоках (по порядку сверху вниз):
- начало
- K:=1;
i:=1 to n
k:=k*1
k
ну и снизу разумеется конец программы в овале, забыла дорисовать.