Смоделируйте последовательность из 10 бросков игральной кости с гранями от 1 до 6 очков....

Question

Смоделируйте последовательность из 10 бросков игральной кости с гранями от 1 до 6 очков. Подсчитайте сумму выпавших очков.
Паскаль АВС
Датчик случайных чисел

Answer 1

var 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 генератор певдослучайных чисел