//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
readln(n);
for i:=2 to (n+1) div 2 do
begin
x:=i*2;
while x<=n do
begin
a[x]:=true;
x:=x+i;
end;
x:=0;
end;
for i:=1 to n do if not a[i] then write(i,' ');
readln;
end.
Win7: основная ос в мире создана в 2009 году. Имеет более защищенный код чем у win xp.
win8; выпущена в 2012 году. была в первые приминен плиточный интерфейс, имеет синхронизацию со смартфонами на wp.
win 10: доработана работа со не сенсерными экранами, имеет continoum(хз как пишется)
Uses graphabc;
var
y: integer;
begin
for y:=0 to 25 do
setpixel (10,y,clred);
end.
а можно узнать где таблица, и что тут решать то?