Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Напишите программу на паскале
Дано трехзначное число. Определить кратна ли сумма его цифр числу а.
Пример работы программы:
Входные данные Выходные данные
633 No
4
540 Yes
2

Ответ оставил Гость

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.