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

[JustinTI]

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

[Sazary]

На C++ будет так:

#include <iostream>
#include <conio.h>
#include <time.h>

using namespace std;

int main(){
int s,k;
srand(time(NULL));
s = 0;
do {
    k = rand()%11;
    s += k;
   }
  while(k!=0);
 cout<<"Sum= "<<s<<endl;
getch();
return 0;
}

[5naip]

а я вот в delphi сваял

procedure my_proc;
var
  i,j:integer;
begin
 j:=0;
 repeat
  Randomize;
  i:=Random(11);
  j:=j+i;
 until i=0;
 ShowMessage(inttostr(j));

[JustinTI]

Дана бесконечная последовательность целых чисел. С помощью бесконечного цикла считать сумму и количество членов последовательности до тех пор, пока не встретится член, равный нулю