Помогите с программой в паскале! На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000 чисел. Подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т. д. и выдайте результат. В выходных данных всегда должно быть 9 чисел.
ВХОДНЫЕ ДАННЫЕ Дана последовательность цифр от 1 до 9, заканчивающаяся нулем. ВЫХОДНЫЕ ДАННЫЕ Выведите через пробел количество единиц, двоек, …, девяток в этой последовательности. ПРИМЕРЫ ВВОД ВЫВОД 1 1 4 1 5 8 6 3 5 1 0 4 0 1 1 2 1 0 1 0
Источник: cwetochki.ru
На вход программе подается последовательность чисел от 1 до 9 заканчивающаяся нулем
Опубликовано 11.06.2017 по предмету Информатика от Гость >> Оцени ответ
7.3 Последовательность Фибоначчи. «Поколение Python»: курс для начинающих. Курс Stepik
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
- Алгебра
- Математика
- Русский язык
- Українська мова
- Информатика
- Геометрия
- Химия
- Физика
- Экономика
- Право
- Английский язык
- География
- Биология
- Другие предметы
- Обществознание
- История
- Литература
- Українська література
- Беларуская мова
- Қазақ тiлi
Показать ещё
Источник: www.shkolniku.com
Помогите с программой в паскале! На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000 чисел. Подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т. д. и выдайте результат. В выходных данных всегда должно быть 9 чисел.
ВХОДНЫЕ ДАННЫЕ Дана последовательность цифр от 1 до 9, заканчивающаяся нулем. ВЫХОДНЫЕ ДАННЫЕ Выведите через пробел количество единиц, двоек, …, девяток в этой последовательности. ПРИМЕРЫ ВВОД ВЫВОД 1 1 4 1 5 8 6 3 5 1 0 4 0 1 1 2 1 0 1 0
Var a: array [1..9] of word;
7.3 Наибольшие числа. «Поколение Python»: курс для начинающих. Курс Stepik
i: longint;
begin
for i := 1 to 9 do a[i] := 0;
repeat
read(i);
if i 0 then inc(a[i])
until i = 0;
for i := 1 to 9 do write(a[i], )
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Источник: reshaika.com