Всем привет решить эти задания, я не понимаю эту тему вообще. Желательно с подробным ответом)
Приведена программа, записанная на пяти языках программирования.
1)Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:
(14; 13), (7; -3), (3; 0), (17; 12), (20; -2), (1; 7), (11; 12), (10; 5), (5; 8).
Сколько было запусков, при которых программа напечатала «НЕТ»?
2)Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:
(2; -3), (21; 11), (-1; 1), (10; 13), (18; 7), (-3; 0), (20; 7), (16; 6), (15; 5).
Сколько было запусков, при которых программа напечатала «ДА»?
3)
Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:
(1; 12), (19; -3), (-5; 0), (16; -9), (18; -3), (-3; -9), (12; -1), (11; 0), (10; 10).
Сколько было запусков, при которых программа напечатала «НЕТ»?
4)Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:
(20; -2), (1; 16), (11; -5), (2; -3), (13; 4), (2; 0), (2; 8), (-5; 7), (14; -6).
Сколько было запусков, при которых программа напечатала «НЕТ»?
var x: integer; { введенное число } n: byte := 0; { количество цифр в числе } i, j: byte; { счетчики } xi: array[1..5] of integer;{массив цифр, из которых состоит число}
begin { Ввод исходного числа } readln(x); writeln; x := abs(x); // рассматриваем модуль числа { Разбиение числа на цифры } while (x > 0) do begin n := n + 1; // увеличиваем количество цифр xi[n] := x mod 10; // вычисляем цифру (остаток от деления на 10) if xi[n] = 8 then // если встретилась 8, begin writeln('да'); // то число "бесконечное" readln; exit; // выход из программы end; x := x div 10; // изменяем число (целое от деления на 10) end; { Поиск цифр, встречающихся больше одного раза} for i := 1 to n - 1 do for j := i + 1 to n do if xi[i] = xi[j] then // если числа begin writeln('да'); // то число "бесконечное" readln; exit; // выход из программы end; { Число не явлется "бесконечным" } writeln('нет');end.