Дано натуральное число четырехзначное и более - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.83/6:

@lal 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 33
		1
	Дано натуральное число четырехзначное и более 21.01.2013, 08:43. Показов 1192. Ответов 1 Метки нет (Все метки) определить сумму и количество цифр в данном числе 0

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #4032700

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

21.01.2013, 08:43

Ответы с готовыми решениями:

Дано четырёхзначное натуральное число п:
Дано четырёхзначное натуральное число п: б) верно ли, то, что это число содержит ровно три...

Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза
Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза. помогите написать...

Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа
Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа....

Дано четырехзначное число. Определить входит ли в него цифра b
Дано четырехзначное число. Определить входит ли в него цифра b.Помогите решить плиз.Заранее...

CodeR

Фрилансер

3418 / 2815 / 3000

Регистрация: 08.02.2012

Сообщений: 8,603

Записей в блоге: 1

21.01.2013, 09:03

Сообщение было отмечено lal как решение

Решение

Pascal

Var n,k,s:longint;
Begin
    write('Число = ');readln(n);
    n:=abs(n);
    While n>0 do
    Begin
      inc(k);
      s:=s+n mod 10;
      n:=n div 10;
    End;
    writeln('Цифр = ',k);
    writeln('Сумма цифр = ',s);
    readln;
End.

	21.01.2013, 09:03

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

21.01.2013, 09:03

Помогаю со студенческими работами здесь

Дано число четырёхзначное 2011 . Найти сумму 1 и последнего числа
Дано число четырёхзначное 2011 . Найти сумму 1 и последнего числа

Дано четырехзначное число, определить количество нулей в данном числе
1. С клавиатуры вводится четырехзначное число N. Используя условный оператор необходимо составить...

Дано целое четырехзначное число. Все единицы заменить тройками
3. Дано целое четырехзначное число. Все единицы заменить тройками

Дано четырёхзначное число, вычислить произведение цифр данного числа.
Дано четырёхзначное число, вычислить произведение цифр данного числа. Добавлено через 26 минут...

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

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

Наверх