Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
128000 бит / 8 = 16000 байт / 1024 = 15,625 Кб
500 / 15,625 = 32 сек
Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8
#include <iostream>
using namespace std;
int main () {
int digit = 300;
do {
int sum = 0;
int teiler = 1;
while (teiler <= digit)
<span> {</span>
if (digit % teiler == 0)
<span> sum+=teiler;</span>
<span> teiler++;</span>
<span> }</span>
if(sum % 10 == 0)
<span> {</span>
cout << digit << endl;
<span> }</span>
<span> digit++;</span>
<span> } </span>while (digit <= 600);
return 0;
}
<span>
</span>
Отпечатками
или же отпечатками лап