Составить рограмму на языке паскаль:
Введите 3 числа и выведите колличество одинаковых чисел в этой цепочке (может быть 3 или 2 или 0). Помогите!
Введите 3 числа и выведите колличество одинаковых чисел в этой цепочке (может быть 3 или 2 или 0). Помогите!
More Questions From This User See All
Answers & Comments
// PascalABC.NET 3.4.2, сборка 1805 от 29.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var k := ReadSeqInteger('Введите три целых числа:', 3).Distinct.Count;
Print(k = 3 ? 0 : k = 2 ? 2 : 3)
end.