(Bin(1001)+25)/Bin(10) = bin: 0001 0001
т.е.2
//Попробуем по-новому
var n:integer;
begin;
readln(n);
var ar:=ArrRandomInteger(n+1,10,99);
var i:=1;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
<span>end.</span>
Синтаксис (Дель-фИн)
Значение (с вида китообразный),подвида(зубастых китов)
Зачастую плавают стаями.
var A:array[1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
if (a[i]>0) and (a[i] mod 3=0) then k:=k+1;
writeln ('k=',k);
readln;
end.
помоему так)