Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Как сделать чтобы наш объект не уходил за пределы рабочего окна? Как сделать чтобы наш объект не уходил за пределы рабочего окна? Добавлено через 46 минут uses GraphABC,Events; const d=10; var x,y,r: integer; https://www.cyberforum.ru/ pascalabc/ thread553554.html	Определить функцию для расчета гипотенуз треугольников. Pascal ABC Помогите решить задачу. Даны катеты трех прямоугольных треугольников. Определить функцию для расчета гипотенуз этих треугольников. Найти периметры треугольников.
Pascal ABC Вычисление составной (сложной) функции, имеющей различный вид на разных участках аргумента https://www.cyberforum.ru/ pascalabc/ thread553517.html Помогите пожалуйста ... 1) Используя оператор условия (if … then ... else), составить программу для вычисления составной (сложной) функции, имеющей различный вид на разных участках аргумента Все исходные данные, необходимые для проведения вычислений, вводить с клавиатуры. Вычислите значение функции: (скриншот 1) 2) С помощью оператора цикла написать и отладить программу для табулирования...	Pascal ABC Найти количество цифр являющихся полными квадратами https://www.cyberforum.ru/ pascalabc/ thread553515.html вводятся n чисел.(a1,a2,a3...).найти колво цифр являющихся полными квадратами.(определить функцию распознавающую полные квадраты). Добавлено через 11 секунд без булиана
Pascal ABC числа -близнецы 2 простых числа называются близнецами если они отличаются друг от друга на 2(41 и 43). напечатать все пары чисел-близнецов не превышающих 200.определить функцию для нахождения простых чисел и подсчета колва делителей Добавлено через 42 секунды без булеана Добавлено через 3 минуты вводятся n чисел.(a1,a2,a3...).найти колво цифр являющихся полными квадратами.(определить функцию...	Pascal ABC Указатели. Расположить значения 3 динамических переменных по возрастанию https://www.cyberforum.ru/ pascalabc/ thread553463.html Объявить 3 динамических переменные (числовые) запросить значение с клавиатуры. Расположить их значения по возрастанию (чётные).После выполнения очистить.
Pascal ABC Указатели. Расположить значения 3 динамических переменных по убыванию Объявить 3 динамических переменные (числовые) запросить значение с клавиатуры. Расположить их значения по убыванию (нечётные).После выполнения очистить. https://www.cyberforum.ru/ pascalabc/ thread553462.html	Файлы. Поменяйте местами первый и третий элементы файла, используя процедуру Seek Pascal ABC Создайте файл целых чисел (числа вводятся с клавиатуры). Поменяйте местами первый и третий элементы файла, используя в программе процедуру Seek. Выведите на экран содержимое первоначального и изменённого файлов. Предусмотрите в программе вывод соответствующего сообщения, если в файле не оказалось третьего элементов.
Pascal ABC Написать программу. Содержащую подпрограмму. Которая копирует в конец непустого списка М его последний элемент. Написать программу. Содержащую подпрограмму. Которая копирует в конец непустого списка М его последний элемент. Если элементы не найдены, то выдать на экран соответствующие сообщение. https://www.cyberforum.ru/ pascalabc/ thread553446.html	Pascal ABC Графы. Найти все вершины заданного графа, недостижимые от заданной его вершины Найти все вершины заданного графа, недостижимые от заданной его вершины. Помогите решить пожалуйста! https://www.cyberforum.ru/ pascalabc/ thread553432.html
Построить систему классов для описания плоских геометрических фигур Pascal ABC Построить систему классов для описания плоских геометрических фигур: круга, квадрата, прямоугольника. Предусмотреть методы для создания объектов, перемещения на плоскости, изменения размеров и вращения на заданный угол. Написать программу, демонстрирующую работу с этим классом. Вот программа, но в ABC не работает, если можно исправьте program Curve; uses Graph; const xmin = -6.5; xmax...	Pascal ABC Создать файл, содержащий сведения о месячной заработной плате рабочих завода https://www.cyberforum.ru/ pascalabc/ thread553395.html Создать файл, содержащий сведения о месячной заработной плате рабочих завода. Каждая запись содержит следующие поля: фамилия рабочего, номер цеха, зарплата за месяц. Количество записей произвольное. Вычислить общую сумму выплат по цеху “X”, а также среднемесячный заработок рабочих этого цеха. Вывести на экран ведомость для начисления зарплаты рабочего цеха.

UserABC

Pascal +

137 / 136 / 127

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

Сообщений: 461

20.04.2012, 21:55

Даны три натуральных числа. Определить, в каком из них сумма цифр больше. - Pascal ABC - Ответ 2935786

20.04.2012, 21:55. Показов 4792. Ответов 1

Метки (Все метки)

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

Решение

Сообщение от Мишаня74

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

Код:

Pascal

Program sumzif; uses crt;
function sumz(a:LongInt):Byte;
var
b,sum:byte;
begin
 sum:=0;
 while a>0 do
  begin
   b:=a mod 10;
   sum:=sum+b;
   a:=a div 10;
  end;
  sumz:=sum;
end;
var
n1,n2,n3,max:Longint;
begin
write('N1=');
readln(n1);
write('N2=');
readln(n2);
write('N3=');
readln(n3);
if (sumz(n1)> sumz(n2)) and (sumz(n1)> sumz(n3)) then writeln('n1 - íàèáîëüøåå ÷èñëî');
if (sumz(n1)< sumz(n2)) and (sumz(n2)> sumz(n3)) then writeln('n2 - íàèáîëüøåå ÷èñëî');
if (sumz(n3)> sumz(n1)) and (sumz(n2)< sumz(n3)) then writeln('n3 - íàèáîëüøåå ÷èñëî');
end.

Вернуться к обсуждению:
Даны три натуральных числа. Определить, в каком из них сумма цифр больше. Pascal ABC

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

IT_Exp

Эксперт

8794 / 1073 / 104

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

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

Блог

20.04.2012, 21:55

Готовые ответы и решения:

Процедуры и функции: даны три натуральных числа. Выяснить, в каком из них больше цифр
Здравствуйте помогите пожалуйста решить данную задачу без использования процедур, с использованием...

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

Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого – наибольшая
составить программу 2 способами: 1) с использование процедур 2) с использованием функций

Даны 2 числа, определить у какого числа сумма цифр больше (через процедуру)
Помогите решить задачу: Даны 2 числа, определить у какого числа сумма цифр больше нахождение...

	20.04.2012, 21:55

BasicMan

Эксперт

19315 / 2622 / 84

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

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

Блог

20.04.2012, 21:55

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

Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше.(сумма цифр - функция). ...

Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого - наибольшая
На языке Паскаль решить 2 способами: 1) с использованием процедур; 2) с использованием функций....

Вводится два целых числа. Определить у какого из них больше сумма цифр
Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше сумма цифр (Если...

Определить, в каком числе из двух натуральных чисел сумма цифр наибольшая
1. Дана строка символов. Удалить из неё знаки препинания. 2.Определить, в каком числе из двух...

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

Наверх