Var n:integer;
b:boolean;
begin;
readln(n);
if frac(sqrt(n))=0 then b:=true else b:=false;
writeln(b);
<span>end.</span>
<span>
Program N;
Var a,n,i,s: integer;
Begin
Writeln('n=');Readln(n);
s:=0;
For i:=1 to n do
Begin
a[i]:=random(100);
write(a:4);
end;
writeln;
writeln('izmenenni massiv');
for i:=1 to n do begin
If (a mod 2)=0 then
a:=0
else
a:=1;
write(a:4);
end;
readln;
End.</span>
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
// Программа №1
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
Writeln('сумму с четным индексом=',mas.Where((v,i)->i mod 2 =0).Sum);
end.
// Программа №2
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Writeln('элементы < 5');
mas.Where(t->t<5).Println;
end.
//Программа №3
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Write('Сумма=');
mas.Where(t->t mod 10 = 3).Sum.Println;
end.
Вообще-то это уже в двоичной системе. 0 и 1 - Двоичная система.
Выше было сказано. Но и еще есть прототипы.