Помогите пожалуйста?
Помогите пожалуйста!
Заранее спасибо.
Сформулируйте правила профилактики компьютера от заражения компьютера вирусом?
Сформулируйте правила профилактики компьютера от заражения компьютера вирусом.
Ответьте пожалуйста заранее спасибо❤❤.
Решите пожалуйста, очень надо, заранее спасибо?
Решите пожалуйста, очень надо, заранее спасибо.
Помогите пожалуйста?
Помогите пожалуйста.
Заранее спасибо.
Помогите пожалуйстаЗаранее спасибо)?
Помогите пожалуйста
Заранее спасибо).
Решите пожалуйста?
Решите пожалуйста!
Сроочно!
Заранее спасибо!
Помогите пожалуйста, заранее спасибо )?
Помогите пожалуйста, заранее спасибо ).
Ребята ответьте на вопросы пожалуйста я вас умоляю срочно нужно завтра знавать всем заранее спасибоЯ вас всех люблю?
Ребята ответьте на вопросы пожалуйста я вас умоляю срочно нужно завтра знавать всем заранее спасибо
Я вас всех люблю.
Погити пожалуйста заранее спасибо?
Погити пожалуйста заранее спасибо.
Помогите пожалуйста?
Помогите пожалуйста.
Заранее спасибо!
Перед вами страница с вопросом Ответьте пожалуйста на 5, заранее спасибо?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 5 - 9 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
/ / PascalABC.
NET
var m : integer ;
begin / / Зарезервируем массив [0.
9] для подсчета повторов var a : = ArrFill(10, 0) ; / / Запрос пользователю ввести положительное число repeat m : = ReadlnInteger('Введите 0 или положительное число ') until m > = 0 ; / / Подсчет количества повторяющихся цифр while m > 0 do begin a[m mod 10] + = 1 ; m : = m div 10 end ; / / Найдем в массиве повторы от 2 и более раз?
If a.
FindIndex(x - > x> = 2) = - 1 then / / Повторов не найдено.
Вывод сообщения writeln('Нет повторов.
') else begin / / Повторы есть.
Write('Повторяются : ') ; / / Выведем повторяющиеся цифры for var i : = 0 to 9 do if a[i] > 1 then write(i, ' ') end
end.