Решение #1
Просто вбиваешь код в любой редактор кода с питоном, в конце добавляешь print(i, S) и получаешь ответ.
Решение #2
Заметим, что код внутри while выполнится 3 раза, т.к. после третьего выполнения переменная i будет равна 3, и цикл while перестанет работать. Следовательно, переменная S также будет три раза увеличиваться на i.
при i == 0: i = 0 + 1 = 1; S = 0 + 1 = 1;при i == 1: i = 1 + 1 = 2; s = 1 + 2 = 3;при i == 2: i = 2 + 1 = 3; S = 3 + 3 = 6;при i == 3: код внутри while не выполняется.Получим, что переменная i в итоге стала равна 3, а S — 6.
В ответе сначала указываем i, а затем S.
ответ: В (3, 6).
// PascalABC.NET
begin
var a := ReadArrReal(4);
var k := a.Length - a.Distinct.Count;
if k = 0 then
Print('Все числа уникальны')
else
Print('Количество повторяющихся чисел равно', k)
end.