С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Slavchik
0 / 0 / 0
Регистрация: 21.03.2014
Сообщений: 11
1

Для каждого члена последовательности из натуральных чисел найти количество нулей и единиц в записи числа

18.04.2014, 10:52. Просмотров 937. Ответов 1
Метки нет (Все метки)

Поступает последовательность целых положительных чисел, 0 — конец последовательности. Для каждого числа найти количество нулей и единиц. Создать процедуру, которая возвращает количество нулей и
единиц в заданном числе.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2014, 10:52
Ответы с готовыми решениями:

Подсчитать количество членов последовательности из натуральных чисел, содержащие цифру 0 в записи числа
Поступает последовательность целых положительных чисел, 0 — конец...

найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц
Требуется найти самую длинную непрерывную цепочку нулей в последовательности...

Для каждого числа последовательности найти количество цифр 0 и 1.
Поступает последовательность целых положительных чисел, 0—конец...

Для каждого числа последовательности найти количество его делителей
Доброго времени суток всем! Возникла проблема с данной программой : Вводится...

Найти количество нулей в десятичной записи целого неотрицательного числа n (без использования строк)
Найти количество нулей в десятичной записи целого неотрицательного числа n (без...

1
CodeR
Фрилансер
3384 / 2785 / 3000
Регистрация: 08.02.2012
Сообщений: 6,834
Записей в блоге: 1
18.04.2014, 12:02 2
Лучший ответ Сообщение было отмечено Slavchik как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var n,k0,k1:integer;
Procedure P(n:integer;Var k0,k1:integer);
Begin
    n:=abs(n);k0:=0;k1:=0;
    While n>0 do
    Begin
      if n mod 10 = 0 then inc(k0)
       else if n mod 10 = 1 then inc(k1);
      n:=n div 10;
    End;
End;
Begin
    Repeat
     write('Число = ');readln(n);
     if n<>0 then
     Begin
       P(n,k0,k1);
       writeln('У числа ',n,' нулей = ',k0,' единиц = ',k1);
     End;
    Until n=0;
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2014, 12:02

Определить количество цифр и наименьшую цифру для каждого числа последовательности
Поступает последовательность целых положительных чисел, 0 – конец...

Дано целое неотрицательное число. Определите количество нулей в его десятичной записи. Например для числа 103062 ответ 2
Дано целое неотрицательное число. Определите количество нулей в его десятичной...

В последовательности натуральных чисел определить количество чисел, кратных 6, и оканчивающихся на 0
Напишите программу, которая в последовательности натуральных чисел определяет...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru