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

Var   n1, n2, n3: integer; begin   write('введите очки на двух первых кубиках: ');   readln(n1, n2);   n3 : = 10 - (n1 + n2);   writeln('замок имеет код ', n1, n2, n3, n1, n2, n3, n1, n2, n3, n1); end. тестовое решение: введите очки на двух первых кубиках: 3 5 замок имеет код 3523523523

Var   a: array [1..10] of integer;   i: integer; begin   readln(a[1], a[2]);   write('код замка: ', a[1], ' ', a[2], ' ');   for i : = 3 to 10 do   begin     a[i] : = 10 - (a[i - 1] + a[i - 2]);     write(a[i], ' ');   end; end.

program c2f;

 

uses

    crt;

 

var i: integer;

        c,f: real;

 

begin

    clrscr; {очистить экран}

    writeln('from celsius to fahrenheit: ');

    write('type temperature (in celsius): '); read(c);

    f : = 32 + 2*c * (1 - 1/10);

    writeln('temperature in fahrenheit: ', f: 3: 3);

    { : 3: 3 - общее количество знаков и знаков после запятой }

    writeln(' celsius to fahrenheit from 0 to 100, step 5: ');

    i : = 0;

    while i < = 100 do

    begin

        f : = 32 + 2*i * (1 - 1/10);

        writeln(' c = ',i: 3,' | f = ', f: 3: 3);

        i : = i + 5;

    end;

    readkey; {чтоб не нажимать alt+f5 для просмотра результатов}

end.

var {ключевое слово после которого идет объявление переменных}  a, b, c, s, p{перечисление названия переменных, которые будут использовться}: integer; {после двоеточия указ тип переменных}begin {начало выполнения программы}  write('a = '); {вывод на экран текста и/или переменных (в данном случае выведится "а = ")}  readln(a); {считывание переменной а}  write('b = ');   readln(b);   write('c = ');   readln(c);   s : = a + b + c; {присваивание значение переменной s равной сумме a, b, c}  p : = a * b * c; {присваивание значение переменной p равной произведению a, b, c}  writeln('сумма равна ', s); {вывод на экрантеста " сумма равна " и значения переменной s}  writeln('произведение равно ', p); {вывод на экрантеста " произведение равно " и значения переменной p}  readln; {ожидание нажатия клавиши enter}end.