Число X получают след образом: слева на право записывают без пробелов подряд числа от 1 до N(12345678910...N ).По числу N определить,сколько цифр в числе X
Ответы
Ответ дал:
0
var
cnt, i,tmp, n, ans:longint;
begin
Writeln('Введите n -> ');
Readln(n);
for i:= 1 to n do
begin
tmp:= i;
cnt:= 0;
while tmp > 0 do
begin
inc(cnt);
tmp := tmp div 10;
end;
ans:= ans + cnt;
end;
Writeln(ans);
end.
cnt, i,tmp, n, ans:longint;
begin
Writeln('Введите n -> ');
Readln(n);
for i:= 1 to n do
begin
tmp:= i;
cnt:= 0;
while tmp > 0 do
begin
inc(cnt);
tmp := tmp div 10;
end;
ans:= ans + cnt;
end;
Writeln(ans);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад