Смоделируйте последовательность из 10 бросков игральной кости с гранями от 1 до 6 очков. Подсчитайте сумму выпавших очков. Паскаль АВС Датчик случайных чисел
Answers & Comments
Nobunagavar k,i,f:integer; begin; randomize; for i:=1 to 10 do begin; k:=random(1,6); f:=f+k; writeln(i,' бросок приносит ',k,' баллов. Текущая сумма баллов:',f); end; writeln('Финальная сумма баллов:',f); end.
//Не "Датчик случайных чисел", a генератор певдослучайных чисел
Answers & Comments
begin;
randomize;
for i:=1 to 10 do
begin;
k:=random(1,6);
f:=f+k;
writeln(i,' бросок приносит ',k,' баллов. Текущая сумма баллов:',f);
end;
writeln('Финальная сумма баллов:',f);
end.
//Не "Датчик случайных чисел", a генератор певдослучайных чисел