Определить, кратна ли сумма цифр числа Б числу А

@7parc · Регистрация: 17.10.2013

Author24 — интернет-сервис помощи студентам

Дано трехзначное число. Определить: Б) кратна ли сумма его цифр числу А.Помогите плиз!Заранее благодарю!

@evilr2l · 20.10.2013, 16:53

Сообщение от 7parc

Дано трехзначное число. Определить: Б) кратна ли сумма его цифр числу А.Помогите плиз!Заранее благодарю!

ну если именно для трехзначного то прямо в лоб
+ не забудь)

Pascal

var  a,b,c,d,N,M:integer;
begin 
writeln('vvedite 4islo i delitel');
readln(N,M);
a:=N mod 10;
b:=(N div 10) mod 10;
c:=N div 100;
d:=a+b+c;
if (d mod M = 0) then writeln('YES') else writeln('No');
readln;
end.

@7parc 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 43
		1
	Определить, кратна ли сумма цифр числа Б числу А 20.10.2013, 16:33. Показов 3495. Ответов 1 Метки нет (Все метки) Дано трехзначное число. Определить: Б) кратна ли сумма его цифр числу А.Помогите плиз!Заранее благодарю! 0

	20.10.2013, 16:53

Определить, кратна ли сумма цифр числа Б числу А

Решение