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');
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.