Архив форума

Почему заходит такое решение =)?

var
a:byte;
begin
read(a);
if a=1 then
write(101)
else
write(300);
end.

Надо добавить тестов и какое-нибудь решение слетит!=)

var
a:byte;
begin
randomize;
a:=random(2);
if a=1 then
write(101)
else
write(300);
end.

с 25% вероятностью и это заходит! =)

begin
randomize;
write(101+199*random(2))
end.