|
Случайно сгенерированое число
|
|
var
diapazon,q,w,n,i,p,q1,w1:integer;
begin
randomize;
readln(diapazon);
q:=round(diapazon/2);w:=q;
readln(n);
for i:=1 to n do begin
p:=random(diapazon);
writeln(p);
if (p > 1)and(p < q) then q1:=q1+1;
if (p > w)and(p < diapazon) then w1:=w1+1;end;
if q1>w1 then writeln('Случайно сгенерированое число попало в первую половину диапазона больше раз');
if q1<w1 then writeln('Случайно сгенерированое число попало во вторую половину диапазона больше раз');
if q1=w1 then writeln('Случайно сгенерированое число попало одинаково во все половины диапазона');
end.
|
|
|
|
Программа будет работать не правильно, исправь
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
а нічого шо аналогічна тема уже существует ?
№ 3 | Автор: babun9999 |
2012-11-14, 20:43
--------->
|
|
|
|
ничего, не переживай)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
