Каким окажется итог выполнения приводимого ниже фрагмента Delphi-модуля ?
- End;
- sum:= 0;
- For j:=1 to 2 Do
- For k:=j+1 to 3 Do
- Edit1.Text:= IntToStr(sum);
- If s[j] = s[k] then sum:= sum + 1;
- For j:=1 to 3 Do s[j]:= 1 + random(10);
- Подсчет числа совпадений трех случайно заданных чисел (диапазон: 1..10)
- Подсчет числа совпадений трех случайно заданных чисел (диапазон: 1..11)
- Подсчет числа несовпадений трех случайно заданных чисел (диапазон: 1..10)
- Подсчет числа несовпадений трех случайно заданных чисел (диапазон: 1..11)
К сожалению, у нас пока нет статистики ответов на данный вопрос,
но мы работаем над этим.