Последовательность хэмминга образует натуральные числа, не имеющие других простых делителей, кроме 2,3,5. найти: первы n элементов этой последовательности. сумму первых n элементов . n-ий элемент по заданному номеру n надо решить через цикл на паскале.

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 function ishamming(n: integer): boolean; begin   while n mod 2 = 0 do n: =n div 2;   while n mod 3 = 0 do n: =n div 3;   while n mod 5 = 0 do n: =n div 5;   result: =(n=1) end; begin   var n: =readinteger('n=');   var s: int64: =0;   var k: =0;   var i: =2;   while k< > n do begin       if ishamming(i) then begin           inc(k); s+=i; print(i)           end;       inc(i)   end;   writeln(newline,'сумма элементов последовательности равна ',s);   n: =readinteger('найти элемент с номером');   i: =2; k: =0;   while k< > n do begin       if ishamming(i) then inc(k);       inc(i)   end;   writeln('найденное значение: ',i-1) end. тестовое решение: n= 33 2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100 сумма элементов последовательности равна 1257 найти элемент с номером 1000 найденное значение: 51840000

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.