<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3 /><h3 />
function IsPrime(self: integer): boolean; extensionmethod;
begin
Result := true;
if self <= 1 then begin Result := false; exit; end;
for var i := 2 to floor(sqrt(self)) do
if self mod i = 0 then begin result := false; exit; end;
end;
begin
Println(ReadInteger.IsPrime ? 'Да' : 'Нет')
end.
1. 9F
2. 31
3. 221
4. 1011
+ 101
_____
10000
5. 1011
* 111
______
1011
+1011
+1011
______
1001101
6. 69
Var n,a,b:integer; begin read(n); a:= n div 10; b:=n mod 10; if a=b then write('Число симметричное') else write('Число несимметричное'); end.
Если это про системы счисления, то тогда 1001010100