Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Нарисовать рисунок https://www.cyberforum.ru/ pascalabc/ thread1828929.html
Помогите нарисовать рисунок.Самая проблема нарисовать 2 круг со штриховкой
Pascal ABC Добавить после каждой буквы "о" букву "а" в скобках - "(а)"
Дан текст(массив строк, любой не большой текст). Составить программу, которая будет добавлять после каждой буквы "о" букву "а" в скобках - "(а)".
Pascal ABC Зашифровать строку, изменив код каждого символа на число N https://www.cyberforum.ru/ pascalabc/ thread1828861.html
Дана строка(Любое предложение). Зашифровать её, изменив код каждого символа на число N
Pascal ABC Найти среднее геометрическое четных элементов массива, имеющих нечетный индекс. Найти среднее геометрическое четных элементов массива С(12), имеющих нечетный индекс. Program Lr4; var a:array of integer; Sg,S:real; x,k:integer; https://www.cyberforum.ru/ pascalabc/ thread1828834.html
Pascal ABC Найти наибольшую подпоследовательность в последовательности
Найти наибольшую подпоследовательность в последовательности состоящую из чётного числа символов.
Pascal ABC Можно ли набрать данную сумму существующими монетами https://www.cyberforum.ru/ pascalabc/ thread1828513.html
Существуют монеты номиналами не меньше 3 но не больше 7. Затем даётся сумма N которую нужно набрать. Можно ли набрать данную сумму существующими монетами?? Найти наименьший способ набора.
Pascal ABC Найти минимальную сумму за подъем пианино https://www.cyberforum.ru/ pascalabc/ thread1828509.html
Мальчик Вася живёт в n-большом этажном доме. Васе привезли пианино. Он живёт на L этаже. В доме работает два лифта. первый лифт останавливается на этажах кратные k, второй лифт останавливается на этажах кратные m. Перенос из лифта в лифт стоит 100 р. Подъём пианино на этаж стоит 500 р. Спуск на 1 этаж 200 р. Найти минимальную сумму которую заплатит мальчик Вася.
Определить какой максимальной ценности приз может получить мальчик Pascal ABC
Мальчик Коля участвует в лотерее, в которой 500 призов L которые делятся на L-1 участников. Мальчик расположил призы в массив, обозначив ценность каждого приза как p и t, некоторые призы получили одинаковую ценность. В процессе ведущий удаляет один из призов. Определить: какой максимальной ценности приз, может получить мальчик.
Pascal ABC Количество слов начинающихся с буквы "к". Дан текст (массив строк) в котором слова разделены одним пробелом. Составить программу, которая считает в каждой строке количество слов начинающихся с буквы "к". https://www.cyberforum.ru/ pascalabc/ thread1828464.html Pascal ABC Положительные простые цифры Вводятся произвольные целые числа.Вывести в возрастающем порядке те положительные простые из них цифры которых целеком состоят из простых цифр. Паскаль. https://www.cyberforum.ru/ pascalabc/ thread1828456.html
Замена строчки Pascal ABC
Как можно заменить строчку if (k mod 2 = 1) then для убирания 2х if? uses crt; var a,l:real; m,k:integer; begin writeln('a'); readln(a); k:=1; l:=0; while k<=a do begin
Pascal ABC Дана строка. Определить, сколько в ней слов начинающихся и заканчивающихся на букву k? https://www.cyberforum.ru/ pascalabc/ thread1828419.html
Дана строка. Определить, сколько в ней слов начинающихся и заканчивающихся на букву k? var sum,k,m,n,i:integer; s:string; begin sum:=0; read(s); k:=length(s);
0 / 0 / 0
Регистрация: 07.09.2016
Сообщений: 298
0

Для каждого числа найти сумму цифр - Pascal ABC - Ответ 9660128

18.10.2016, 16:47. Показов 3777. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Всем привет. Нужна помощь по задаче.Вести три числа a,b,c. Для каждого числа найти и вывести на экран сумму цифр.(использовать функцию)Вот моя программа.Только у меня одна проблема вот у меня получается a=52,а мне нужно чтобы было 5+2 и тд. Заранее спасибо.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,b,c: integer; 
function SummNumber(a,b,c: integer): integer;
   var summ: integer;
begin
   summ := a+b+c;
   SummNumber:= summ;
end;
begin
   write(' Введите a= ');
   read(a);
   write(' Введите  b= ');
   read(b);
   write(' Введите c= ');
   read(c);
   writeln('сумма = '+SummNumber(a,b,c));
 
end.


Вернуться к обсуждению:
Для каждого числа найти сумму цифр Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2016, 16:47
Готовые ответы и решения:

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

Для каждого введённого числа вычислить сумму его цифр
С клавиатуры вводится трёхзначное число, считается сумма его цифр. Если сумма цифр числа больше 10,...

Найти количество и сумму цифр, сумму первой и последней цифр заданного числа z
Дано число z. Найти: количество цыфр в нём, сумму цыфр числа z, первую та последнюю цыфры числа z....

Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа
нужна программа которая проверяет следующий факт: Сумма цифр заданного четырехзначного числа N...

1
18.10.2016, 16:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2016, 16:47
Помогаю со студенческими работами здесь

Найти сумму цифр каждого числа и записать в новый массив
дан одномерный массив, в котором хранятся N целых чисел. найти сумму цифр каждого числа и записать...

Получить новый массив, вычислив для каждого элемента сумму цифр в записи числа
дан двумерный вещественный массив, состоящий из N строк и M столбцов. получить новый массив,...

Для каждого числа последовательности найти количество цифр 0 и 1.
Поступает последовательность целых положительных чисел, 0—конец последовательности. Для каждого...

Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму
Дан массив целых чисел. Для каждого элемента с нечетным индексом найти и вывести количество цифр и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru