//Pascal ABC.NET v3.1 сборка 1172
Var
n,i,s,max,maxn:integer;
begin
n:=1;
max:=-1;
while n<>0 do
begin
readln(n);
for i:=1 to n div 2 do
if n mod i=0 then s:=s+i;
if max<s then
begin
max:=s;
maxn:=n;
end;
s:=0;
end;
writeln(maxn);
end.
Пример ввода:
23
45
67
12
23
0
Пример вывода:
45
в команде write можно указывать, сколько позиций отводится для печати. Например, write(x:5) -выводит х в 5 позициях.
Пример вывода двумерного массива (ПаскальАВС.НЕТ):
var a:array [1..2,1..10] of integer;
begin
for var i:=1 to 2 do
begin
for var j:=1 to 10 do
write (random(120):4);
writeln;
end;
end.
Program test;
const n = 10;
var i,k:integer;
m: array[1..n] of integer;
begin
for i:=1 to n do
begin
write(' Введите [',i,'] член масива: ');
readln(m[i]);
end;
for i:=1 to n do if m[i]<0 then inc(k);
writeln('Количество чисел меньших нуля :',k);
end.<span>
</span>
1 128 комбинаций т.к 2^7=128
2 4 бита т.к 2^4=16