Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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.