1. Дано натуральное число. Определить является ли произведение его цифр кратным числу A 2. Известны данные о количестве осадков, выпавших за каждый день марта. Верно ли, что осадков не было 10 дней в месяц?

uses crt; var ch,a:integer; begin readln(ch); readln(A); if ((ch div 10)+( ch mod 10)) mod a = 0 then writeln('YES') else writeln('NO'); readln; end.   2.   uses crt; var i,os:integer; a:array[1..31] of integer; begin randomize; os:=0; for i:=1 to 31 do begin a[i]:=random(5)+0; if a[i]=0 then inc(os); end; for i:=1 to 31 do write(a[i],' '); writeln; if os = 10 then writeln('YES') else writeln('NO'); readln; end.