Напишите программу ** паскале Дано трехзначное число. Определить кратна ли сумма его цифр...

Question

Напишите программу на паскале

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

Пример работы программы:

Входные данные Выходные данные
633 No
4

540 Yes
2

Comments

1 пример не верный 6+3+3=12 12/4=3

Answer 1

Var
 a,b,c,d,e:longint;
begin
 readln(a);
 readln(c);
 d:=d+a mod 10;
 d:=d+a div 10 mod 10;
 d:=d+a div 100 mod 10;
 if d mod c = 0 then writeln('Yes') else writeln('No');
end.

Comments

спасибо тебе,да хранит тебя бог

---

кек