Сгенироровать 2 числа.

Диапазон от 1 до 99 включительно.

Сгенерировать знак действия: сложение или вычитание.

Если выпало сложение, то проверить: если сумма двух чисел больше 100, то сгененировать их заново.

Генерировать два числа до тех пор, пока их сумма не станет меньше или равно 100.

Однако, при таком подходе, существует вероятность длительной генерации чисел или даже зацикливании программы.

Поэтому генерировать числа не больше 10 раз. Если спустя 10 циклов нужная пара числен не подобрана, то:

- сгенировать число 1 в интервале от 1 до 50

- рассчитать число 2 по формуле: число2 = 100-число1 - рандом(10)

Если выпало вычитание, то проверить: если разность двух чисел меньше 1, то сгененировать их заново.

Генерировать два числа до тех пор, пока их разность не станет больше или равно 1.

Однако, при таком подходе, существует вероятность длительной генерации чисел или даже зацикливании программы.

Поэтому генерировать числа не больше 10 раз. Если спустя 10 циклов нужная пара числен не подобрана, то:

- сгенировать число 1 в интервале от 1 до 50

- рассчитать число 2 по формуле: число2 = число1 - рандом(10)-1

Таким образом должно быть 10 примеров для вывода пользователю.

После всех выражений рассчитать процент правильных ответов по формуле:

%правильных ответов = (количество правильных ответов*100)/10

👇

Открыть все ответы

Ответ:

dega7981

19.05.2021

Доступность (документа) — свойство документа, состоящее в том, что форма представления документа обеспечивает физическую возможность измерения заданных параметров этого представления документа (содержания, атрибутов, технологии) заданными средствами в заданных точках за конечное время. ценная и актуальная информация выражена непонятными словами, она может стать бесполезной. Информация становится понятной, если она выражена языком, на котором говорят те, кому предназначена эта информация. ПРИМЕРЫ: 1) Дошкольник спрашивает у старшеклассника: "Как светит лампочка?". В ответ слышит: "Существует две теории света – волновая и корпускулярная. Согласно первой …". 2) Объяснять материал на китайском языке.

4,8(33 оценок)

Ответ:

ино7

19.05.2021

Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

Выделенное наибольшее

4,5(24 оценок)

Это интересно:

Образование-и-коммуникации

13.09.2022

Как легко и быстро спрягать испанский глагол hacer...

Стиль-и-уход-за-собой

03.11.2020

Описание людей: как правильно выбрать слова...

Компьютеры-и-электроника

15.02.2020

Как нарисовать шар в GIMP?...

Образование-и-коммуникации