определить суммы соседних цифр - Pascal

Pascal (Паскаль)

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

Войти

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

Рейтинг 5.00/11:

omega_vlg

	определить суммы соседних цифр 14.11.2010, 23:20. Показов 1970. Ответов 2 Метки нет (Все метки) Доброго времени суток. Помогите плиз решить задачку! Ввести натуральное число, определить суммы его соседних цифр, например, для числа 2343123 получится 577435.

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

14.11.2010, 23:20

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

Найти и вывести все пары соседних элементов, в которых сумма цифр первого числа больше суммы цифр второго
Дан массив целых чисел. Найти и вывести все пары соседних элементов, в которых сумма цифр первого числа больше суммы цифр второго числа....

Найти суммы цифр каждого числа без учета повторяющихся цифр. Повторяющиеся суммы удалить.
Найти суммы цифр каждого числа без учета повторяющихся цифр. Повторяющиеся суммы удалить.

Определить количество элементов массива, значения которых больше СУММЫ соседних элементов
Дан одномерный массив из 15 элементов. Определить количество элементов, значения которых больше СУММЫ соседних элементов (предыдущего и...

pryda

Неадекват и грубиян

310 / 297 / 301

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

Сообщений: 647

15.11.2010, 04:32

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var n,i,k:longint;
    s,c:string;
begin
writeln('Введите число');
readln(n);
s:='';
while n>=9 do
begin
   k:=n mod 10;
   n:=n div 10;
   k:=k+(n mod 10);
   str(k,c);
   s:=c+s;
end;
writeln(s);
readln;
end.

omega_vlg
	15.11.2010, 09:50
	спасибо!

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

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

15.11.2010, 09:50

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

Определить, является ли суммы цифр числа двузначным числом
Прошу помощи в решении простейшей задачи. Дано двузначное число. Определить, является ли суммы его цифр двузначным числом. ...

определить символ код который в 4 раза больше суммы четных цифр заданного целого 4-х значного числа
Помогите пожалуста!) определить символ код который в 4 раза больше суммы четных цифр заданного целого 4-х значного числа

Определить,равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
Определить,равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа(решить с помощью условия)

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

Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
Вывести на экран 1 или 0 в зависимости от того, ровный квадрат заданного трехзначного числа кубу суммы цифр этого числа.

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

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

Новые блоги и статьи Все статьи Все блоги /
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .

Наверх