Машина случайным образом генерирует натуральные числа в промежутке [0, 1, 2, … 100]

[JustinTI]

Машина случайным образом генерирует натуральные числа в промежутке [0, 1, 2, … 100] до тех пор, пока не выпадет число 49. Подсчитать количество сгенерированных машиной чисел.
мне ток полное решение нужно....

[alex_fcsm]

var i,j:integer;

begin
randomize;
j:=0;
repeat
i:=random(101);
inc(j);
until i=49;
writeln(j);
end.

[Alar]

http://programmersforum.ru/showthread.php?t=33619

JustinTI - это что такое? вы свои темы теряете? названия нужно писать по правилам!

[JustinTI]

спасибо большое alex_fcsm!!!!!

[Alar]

JustinTI, не ответите на мой вопрос бан по ip и майлу.