Question

Из чисел 1, 2, ..., N выбирают с возвращением k чисел. Найдите вероят- ность того, что получена группа из k последовательных чисел, располо- женных в порядке возрастания.

Answer 1

var
num,modulo: integer;
begin
write('Number: ');
readln(num);
modulo:= num mod 3;
case modulo of
0: writeln(num,' divisible by 3');
1: writeln(num,' is not divisible by 3, the remainder is equal 1');
2: writeln(num,' is not divisible by 3, the remainder is equal 2');
end;
end.