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

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

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

Входные данные Выходные данные

633 No

4

540 Yes

2

Question

Информатика

Тоня

2 февраля, 13:40

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

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

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

Входные данные Выходные данные

633 No

4

540 Yes

2

+5

Ответы (1)

Знаете ответ на вопрос?

Сашута · 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.

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