Системное администрирование

Программный код. Паскаль

Вводится число (пользователем), вывести статистику по цифрам этого числа: сколько в нём нулей, единиц, двоек и т.д.
Владимир Емельянов
Владимир Емельянов
87 
 var

  t: array['0'..'9'] of integer;

  i: integer;

  s: string;

  c: char;

begin

  readln(s);

  for i := 1 to length(s) do

    if s[i] in ['0'..'9'] then inc(t[s[i]]);

  for c : = '0' to '9' do writeln(c, ': ', t[c])

end.
АМ
Ануар Мусагазин
64 577
Лучший ответ
—-—
Mik Den
Mik Den
93 880
Задания дают на фрилансе, а здесь только отвечают на вопросы
Иван Омельченко
Иван Омельченко
14 609
Владимир Емельянов Что за фриланс, не могли бы подсказать? 
 var 

  a: array[0 .. 9] of integer; 

  s: string; 

  n: integer; 

  i: integer; 

 

begin 

  read(n); 

  str(n, s); 

  for i := 1 to length(s) do inc(a[ord(s[i]) - $30]); 

  for i := 0 to 9 do writeln(i, ' > ', a[i]); 

end.
:)
DS
David Smith
1 916
Вот пример программного кода на языке Pascal, который считает статистику цифр в введенном числе:
program DigitStats;
var
num, digit, i, count: integer;
stats: array[0..9] of integer; { массив для статистики цифр }
begin
write('Введите число: ');
readln(num);

{ обнуляем статистику }
for i := 0 to 9 do
stats[i] := 0;

{ считаем статистику цифр }
while num > 0 do
begin
digit := num mod 10; { выделяем последнюю цифру }
stats[digit] := stats[digit] + 1; { увеличиваем счетчик для данной цифры }
num := num div 10; { удаляем последнюю цифру }
end;

{ выводим статистику }
for i := 0 to 9 do
begin
count := stats[i];
if count > 0 then
writeln('Количество цифр ', i, ' в числе: ', count);
end;
end.
Пример работы программы:
Введите число: 1234567890
Количество цифр 0 в числе: 1
Количество цифр 1 в числе: 1
Количество цифр 2 в числе: 1
Количество цифр 3 в числе: 1
Количество цифр 4 в числе: 1
Количество цифр 5 в числе: 1
Количество цифр 6 в числе: 1
Количество цифр 7 в числе: 1
Количество цифр 8 в числе: 1
Количество цифр 9 в числе: 1
Сергей Герасимов
Сергей Герасимов
1 209

Похожие вопросы