Из чисел 1, 2, ..., N выбирают с возвращением k чисел. Найдите вероят- ность того, что получена группа из k последовательных чисел, располо- женных в порядке возрастания.
Answers & Comments
57hvifcpib
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.
Answers & Comments
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.