0 / 0 / 0
Регистрация: 23.12.2014
Сообщений: 1
1

Определить, является ли сумма цифр четырёхзначного числа кратной 10

23.12.2014, 17:37. Показов 1832. Ответов 2
Метки нет (Все метки)

Определить является ли сумма цифр четырёхзначного числа кратной 10.Нужно использовать mod и div
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2014, 17:37
Ответы с готовыми решениями:

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

Циклы. Определить является ли сумма максимальной и минимальной цифр кратной числу a.
Дано натуральное число.Определить является ли сумма его максимальной и минимальной цифр кратной...

Дано натуральное число. Определить, является ли сумма его максимальной и минимальной цифр кратной числу a
Дано натуральное число. Определить, является ли сумма его максимальной и минимальной цифр кратной...

Является ли сумма цифр данного четырёхзначного числа n чётным числом?
помогите пожалуйста составить программу, определяющую, является ли сумма цифр данного...

2
4948 / 2557 / 2309
Регистрация: 10.12.2014
Сообщений: 9,802
24.12.2014, 06:43 2
Лучший ответ Сообщение было отмечено Cavidan как решение

Решение

И не только для четырёхзначных… Даже девятизначные числа обрабатывает на ура!
Pascal
1
2
3
4
5
6
7
var N : Integer;
begin
  Write('Введите целое число: '); ReadLn(N);
  var S := 0; var tmp := abs(N);
  while tmp > 0 do begin S += tmp mod 10; tmp := tmp div 10; end;
  WriteLn('Сумма цифр числа ', N, ' кратна 10 = ', S mod 10 = 0);
end.
0
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
24.12.2014, 15:10 3
Pascal
1
2
3
4
5
6
7
8
9
10
Function SumCifr(A : Longint) : Integer;
Begin
  If A>0 then SumCifr:=(A mod 10) +SumCifr(A div 10) else SumCifr:=0;
End;
 
Var A : Longint;
Begin
  Readln(A);
  Writeln((SumCifr(A) mod 10)=0);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2014, 15:10
Помогаю со студенческими работами здесь

Определить, что сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1
Задание: Для каждой задачи составить программу, выводящую значение TRUE, если указанное...

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

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

Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр
Помогите пожалуйста написать программу в TASM Определить равна ли сумма двух первых цифр...


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

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

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