Monk [Off] [#] (04.02.2012 / 12:22)

LockeD (04.02.2012/12:16)
блеать, а надо что бы ошибочное былоблять. я себе задачу усложнил. у меня нет ошибочных! все что больше 1 прокатит. в переменную i программа насчитает сколько знаков в этом числе было. если вписывать это число самому, то ошибочным будет число меньше 0 там все нормально работает. потесть мое решение сам и если найдешь ошибки пеши

Monk [Off] [#] (04.02.2012 / 12:33)

LockeD, понял чувак!
у моем решении переменная i никак не может быть 10! потому что, если учасников будет 10, то число получится 11-тизначное
а если 9, то 9-тизначное!
10-тизначным число не может быть!
моя программа столько не насчитает, но если вводить эти значения самому, то придется исключать значения кратные 10-ти

LockeD [Off] [#] (04.02.2012 / 12:54) ████████████ - сотри и прочитай мой статус

Monk (04.02.2012/12:33)
LockeD, понял чувак!
у моем решении переменная i никак не может быть 10! потому что, если учасников будет 10, то число получится 11-тизначное
а если 9, то 9-тизначное!
10-тинутакахуливотскокаучасниковбуитесиN=18467454, тобиш количество розрядов числа =18467454???

Monk [Off] [#] (04.02.2012 / 13:45)

LockeD (04.02.2012/12:54)
нутакахуливотскокаучасниковбуитесиN=18467454, тобиш количество розрядов числа =18467454???k = 2795508

Monk [Off] [#] (04.02.2012 / 13:55)

юзай этот код:
program GW;
var k, N, l: integer;
begin
write('N = ');
readln(N);
k:=0;
l:=1;
if N mod 10 = 0 then
writeln('Eror')
else
begin
while N > 0 do
begin
k:= k+1;
if (k=9) or (k=99) or (k=999) or (k=9999) or (k=99999) or (k=999999) then
l:= l+1;
N:= N-l;
end;
writeln('k = ', k);
end;
end.