<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var m:=1 to ReadInteger('n=')-1 do begin
var s:=0;
for var i:=1 to m div 2 do
if m mod i=0 then s+=i;
if m=s then Writeln(m)
end
end.
<u>Пример</u>
n= 10000
6
28
496
8128
Переводит в биты:
356*1000=356000 байт
356000*8=2848000 бит
теперь посчитаем время:
2848000/16384=173.8 сек
Автоматическое перелистывание и переход между страницами
Program z15; Var i, sum, b, test_1, test_2:integer; a: array [1..5] of integer;Begin for i:= 1 to 5 do begin write('Число ', i,' = '); readln(a[i]); end; test_1:= 0; test_2:= 0; sum:= 0; writeln; for i:=1 to 3 do sum:= sum + a[i]; if (sum > 0) then for i:= 1 to 5 do begin test_1:= 1; b:= a[i] * -1; writeln('Число ', i,' = ', b); end; if ((a[4] < 0) and (a[5] < 0)) then begin test_2:= 1; write('Произведение двух последних чисел = ', a[4]*a[5]); end; writeln; if ((test_1 = 1) and (test_2 = 2)) then for i:=1 to 5 do writeln('Число ', i,' = ', a[i]) else for i:=1 to 5 do writeln('Число ', i,' = ', a[i]*2) End.