С клавиатуры вводятся числа от 1 до 9 до тех пор, пока не будет введен
0. Посчитайте количество единиц в этой последовательности, количество двоек, количество троек и так далее (программа должна вывести ровно 9 чисел). Входные данные Вводятся числа от 1 до 9, разделенные пробелами. Всего не более 100 чисел. Выходные данные Выведите 9 натуральных чисел.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Sophey
Запишем программу для нахождения количество единиц в этой последовательности, количество двоек, количество троек и так далее в Паскале.
var F:file of integer;
A:array[1..100] of integer;
I,N,K,S:Integer;
begin
ReadLN(I);
Assign(F,'Col.in');
ReWrite(F);
repeat
Inc(K);
Write(F,I);
ReadLn(i);
until I = 0;
Close(F);
ReSet(F);
repeat
Inc(I);
Read(F,A[i]);
until EoF(F);
Assign(F,'Col.out');
ReWrite(F);
for n:=1 to 9 do
begin
for i:=1 to k do
if A[i] = n then
Inc(S);
Write(F,S);
S:=0;
end;
Close(F);
end.
var F:file of integer;
A:array[1..100] of integer;
I,N,K,S:Integer;
begin
ReadLN(I);
Assign(F,'Col.in');
ReWrite(F);
repeat
Inc(K);
Write(F,I);
ReadLn(i);
until I = 0;
Close(F);
ReSet(F);
repeat
Inc(I);
Read(F,A[i]);
until EoF(F);
Assign(F,'Col.out');
ReWrite(F);
for n:=1 to 9 do
begin
for i:=1 to k do
if A[i] = n then
Inc(S);
Write(F,S);
S:=0;
end;
Close(F);
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00