Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Напишите функцию, которая моделирует бросание двух игральных кубиков (на каждом может выпасть от 1 до 6 очков). (Используйте генератор псевдослучайных чисел)

Ответ оставил Гость

//Pascal ABC.NET v3.0 сборка 1111

function ran():integer;
 begin
  randomize;
  ran:=random(1,6);
 end;