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

Turbo Pascal

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

Войти

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

Рейтинг 4.83/6:

@lal 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 33
		1
	Дано натуральное число четырехзначное и более 21.01.2013, 08:43. Показов 1189. Ответов 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 минут...

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

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

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх