2.Напишите программу которая при вводе 4 чисел узнает есть ли среди них равные если да то сколько.
язык паскаль
Какой язык программирования?
паскаль
// PascalABC.NET
begin
var a := ReadArrReal(4);
var k := a.Length - a.Distinct.Count;
if k = 0 then
Print('Все числа уникальны')
else
Print('Количество повторяющихся чисел равно', k)
end.
можно проще? в 9 кл такого нет
В ВАШЕМ конкретно классе может и нет. Но если Вам не решение задачи нужно, а то, как у вас в классе пишут, чтобы содрать, то нужно или диалект языка указывать, или пример кода приводить.
Я уже давно заметил, что один пишут "Спасибо", а другие "Мы так не решаем!". Причем на один и тот же код. Всем не угодишь.
Они не проходили считывание параметров сразу в массив, в задании подразумевается использовании ветвления для проверки чисел
надо бы как-то через if и сравнение переменных
И это все я должен угадать был?
И разбухать потом задачу на двадцать строк, называя ее "более простой и понятной"?
И почему те, кто Питон учит, парсинг строки в список понимать должны с первого занятия в 7-8 классе, а тут в девятом этого понять нельзя на Паскале? Не думаете ли, что проблема не в школьниках, а в их учителях?