//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.
1) Слева должна быть переменная
Верно A:=5+5
3) не ясно, является переменная C строковой, чтобы можно было осуществить склейку.
4) Если game описано как целое, то верно
5) Можно сделать так:
a:=5;
c:=5;
Просто смотришь какие цифры на пересечении букв стоят и сравниваешь, получается 2 граф
2^8072+2^4036+2^5-2^0
10.....00 + 1 ....0 + 100000 - 1
10.....0010......0011111
7 единиц