var
st:string;
i,a,pr:integer;
begin
<em>readln(st,a);</em>
pr:=1;
for i:=1 to 4 <em>do</em>
pr:=pr*(ord(st[i])-ord('0'));
<em>writeln(pr mod a=0);</em>
end.<span>
</span>
Это же элементарно!
Вот решения ко всем 4 задачам, Джон :)
Официально как проект только немного отличается
Ответ:
1б,байт 1024, КБ 980,мб 1024