Здесь надо посчитать в процентах но вот есть сомнения а или б если я угадаю одну из шапок там будут все синие то есть 50%
а там вероятность того что выпадет меньше
Правильный вариант Б)
var k,p,d:real;i:integer;begin
write('Write kol:');readln(k);
write('Write percent:');readln(p);
for i:=1 to 50 do
d:=k/(1+(p/100)*i);
writeln(d:0:2);
end.
Код может быть неточен так как нет данных для проверки.
сама программа здесь
просто поменяй расширение
begin
var m := 105;
var n := 15;
Println(1 + (m mod n) * (n mod m)); //1
end.
В раздел химии надо было кидать))
это все тела. объяснение надо?