// Возможно, это работает
#include<stdio.h>
int main()
{
int x,s,l,n;
scanf("%d", &n);
do{
s = 0;
for(x = 1; x <= n; x++)
{
s += 1;
l = 10;
while(x % l == 0){s -= 9; l *= 10;};
if(x % s == 0) printf("%d ",x);
};
printf("\n");
scanf("%d", &n);
} while(n > 0);
}<span>
</span>
есть вопросы пиши. если чего то не видно.
var s,n:integer;
begin
s:=0;
n:=0;
while s<65 do begin
s:=s+6;
n:=n+2;
end;
writeln(n);
end.
Ответ: 22.
P.s скопируй в паскаль и сам проверь
672 бита там и пробелы тоже как символ идут