Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Дано натуральное число N. Напишите функцию int NumberOfZeroes(int n) (C/C++/Java) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Парсинг .xls http://www.cyberforum.ru/cpp-beginners/thread1035429.html
Не уверен, туда ли я пишу, но т.к. собираюсь реализовывать на C++ - думаю раздел в какой-то мере верный. Хотелось бы узнать, пытался-ли кто-нибудь реализовать парсер .xls файлов, или кто-нибудь...
C++ В строках матрицы с отрицательным элементом на главной диагонали найти суму всех элементов и максимальный элемент Задано матрицу D(5,5). В строках с отрицательным элементом на главной диагонали найти суму всех элементов и максимальный элемент . Вывести обсчитанную суму и найденный максимум . http://www.cyberforum.ru/cpp-beginners/thread1035420.html
Подскажите, как исправить прогу на классы C++
В общем, вот задание: Объявить объекты класса и продемонстрировать работу методов. Организовать класс ромб, содержащий методы нахождения его площади, периметра, длин диагоналей. Класс должен...
Программа, которая считывает информацию с одного файла и выводит во второй C++
Написать программу, которая считывает текст из файла и выводит в другой файл и на экран сначала предложения, начинающиеся с однобуквенных слов, а потом все остальные.
C++ Написать функцию на С++ http://www.cyberforum.ru/cpp-beginners/thread1035383.html
Нужна помощь написать выражение для вычисления на С++. Никак не получаеться. Нужна ваша помощь.
C++ Алгоритм и его оптимизация Проблемы с воображением ((( Нужно написать программу а потом её как либо оптимизировать что бы при сравнении получившиеся программ в профайлере (Используется VTune ) были хотя бы немного заметные... подробнее

Показать сообщение отдельно
ildwine
Модератор
2907 / 1759 / 636
Регистрация: 04.03.2013
Сообщений: 4,368
Записей в блоге: 1
10.12.2013, 07:19
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function NumberOfZeroes(n : integer) : integer;
var k : integer;
begin  
  k := 0;  
  while n <> 0 do
  begin
    if (n mod 10) = 0 then inc(k);
    n := n div 10
  end;
  NumberOfZeroes := k
end;
{сама программа}
begin
  write(NumberOfZeroes(10050))
end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru