ВХОДНЫЕ ДАННЫЕ Дана последовательность цифр от 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; 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.
Также наши пользователи интересуются:
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите с программой в паскале! На вход программе подается последовательность чисел от 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» от пользователя АЛИНКА ТКАЧЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
7.3 Наибольшие числа. «Поколение Python»: курс для начинающих. Курс Stepik
Открой этот вопрос на телефоне — включи камеру и наведи на QR-код!
Источник: shpora.org
Помогите с программой в паскале!
На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000 чисел. Подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т. д. и выдайте результат. В выходных данных всегда должно быть 9 чисел.
ВХОДНЫЕ ДАННЫЕ
var a: array [1..9] of word;
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.
Автор ответа: orlova54
var
a: array[0..9] of longint;
x, i, j, n: longint;
begin
for i := 1 to 9 do
a[i] := 0;
read(x);
inc(a[x]);
while x <> 0 do
begin
read(x);
inc(a[x]);
end;
for i := 1 to 9 do
write(a[i], ‘ ‘);
end.
Источник: sous-otvet.net
На вход программе подается последовательность чисел от 1 до 9
На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000 чисел. Подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т. д. и выдайте результат. В выходных данных всегда должно быть 9 чисел.
21 Цикл while. Нахождение всех делителей числа Python
ВХОДНЫЕ ДАННЫЕ
Дана последовательность цифр от 1 до 9, заканчивающаяся нулем.
ВЫХОДНЫЕ ДАННЫЕ
Выведите через пробел количество единиц, двоек, …, девяток в этой последовательности.
2 (1 оценка)
StSerg 7 лет назад
Светило науки — 666 ответов — 6883 помощи
Язык Python
получение входных данных из файла in.txt, вывод тоже в файл out.txt
data = open(‘in.txt’, ‘r’).read()
open(‘out.txt’, ‘w’).write(‘ ‘.join([str(data.count(str(x))) for x in range(1,10)]))
можно ужать до одной строки, но тогда будет входной файл перечитан 9 раз, а это не хорошо, операции с диском достаточно затратны
Источник: vashurok.com