Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
maksimelyan
0 / 0 / 0
Регистрация: 07.09.2016
Сообщений: 52
#1

Для каждого числа найти сумму цифр

18.10.2016, 16:47. Просмотров 223. Ответов 1
Метки нет (Все метки)

Всем привет. Нужна помощь по задаче.Вести три числа 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.10.2016, 16:47
Ответы с готовыми решениями:

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

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

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

Для каждого числа в интервале от a до b, сумма цифр которого кратна трём, зеркально отразить цифры числа
Даны 2 целых трёхзначных числа: a и b. Для каждого числа в интервале от a до b,...

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

1
Puporev
Модератор
54221 / 41854 / 28923
Регистрация: 18.05.2008
Сообщений: 98,534
18.10.2016, 16:52 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function SummNumber(a: integer): integer;
var summ: integer;
begin
summ := 0;
while a>0 do
 begin
  summ:=summ+a mod 10;
  a:=a div 10;
 end;
SummNumber:= summ;
end;
var a,b,c: integer;
begin
write(' Введите a= ');
readln(a);
writeln('Сумма цифр=',SummNumber(a));
write(' Введите  b= ');
readln(b);
writeln('Сумма цифр=',SummNumber(b));
write(' Введите c= ');
readln(c);
writeln('Сумма цифр=',SummNumber(c));
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2016, 16:52

Найти сумму цифр числа
Ребята помогите записать программу через процедуру Даны натуральные числа А...

Найти сумму цифр числа
Цикл с проверкой условий. Задано целое число N. Напишите программу, которая...

Найти сумму цифр числа
помогите пожалуйста решить задачу! нужно найти сумму цифр натурального числа...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru