Напишите программу на паскале Дано трехзначное число. Определить кратна ли сумма его цифр числу а. Пример работы программы: Входные данные Выходные данные 633 No 4 540 Yes 2
Напишите программу на паскале
Дано трехзначное число. Определить кратна ли сумма его цифр числу а.
Пример работы программы:
Входные данные Выходные данные
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.
Не нашли ответ?
Похожие вопросы