Другие разделы

Правила

FAQ

Пользователи

Комментарии

Друзья сайта

Flash Loops

RaceBook

Информатика

Секретный замок сейфа состоит из 10 ячеек, в которые вставляются игральные кубики. Дверь открывается в том случае, когда в любых трёх соседних ячейках сумма точек на передних гранях равна 10. Определить кол-во возможных вариантов открывания двери, если учесть, что все цифры будут заданы.

Решение подходит для pascal и Delphi:

  1. Var
  2.   seif:array[1..10]of byte; {массив состоящий из 10 элементов}
  3.   i,kol:byte;
  4. begin
  5.   Randomize; {вызов функции рандома}
  6.   writeln('kombinacii kubikov');
  7.   for i:=1 to 10 do {цикл перебора элементов массива от 1 до 10}
  8.     begin
  9.       seif[i]:=random(6)+1; {приравниваем любое значение от 1 до 6 заданному элементу массива}
  10.       write(seif[i],' '); {вывод на экран значения заданного элемента массива}
  11.     end;
  12.   kol:=0; {обнуляем количество}
  13.   for i:=1 to 8 do if seif[i]+seif[i+1]+seif[i+2]=10 then inc(kol); {перебор комбинаций, если комбинация рядом 3-х стоящих ячеек равно 10, то прибовляем к количеству еденицу}
  14.   writeln;
  15.   writeln('kolichestvo kombinaciy ravno ',kol); {вывод результата}
  16. readln;
  17. end.

© Филимошин В. Ю., 2009-2015

Вход

Логин:

Зарегистрировать

Пароль:

Забыли пароль?

запомнить

Пятнашки

1
4
2
5
13
12
9
3
7
6
11
8
14
10
15

Опрос

Как Вы узнали об этом сайте?

От админа (1036)

48.3%

От друзей (32)

1.49%

Поисковик выдал... (987)

46.0%

Увидел(а) на других сайтах (46)

2.14%

Другое (41)

1.91%

Случайное фото

Socket 775

Счётчики

Яндекс.Метрика

Internet Map

Каталог@Mail.ru - каталог ресурсов интернет