Смоделируйте последовательность из 10 бросков игральной кости с гранями от 1 до 6 очков. Подсчитайте сумму выпавших очков.
Паскаль АВС
Датчик случайных чисел
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 генератор певдослучайных чисел
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
