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

Question

43

Дано четырехзначное число. Определить: кратно ли произведение его цифр числу а. ПОЖАЛУЙСТАПОМОГИТЕ!

в избранное ссылка

Знаете ответ?

yura12 · Accepted Answer

59

yura12

02 февраля 2023

varst: string; i,a,pr: integer; beginreadln (st,a); pr: =1; for i: =1 to 4 dopr: =pr*(ord (st[i]) -ord ('0'); writeln (pr mod a=0); end.

комментировать

в избранное ссылка отблагодарить