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

Var   n,i,a: integer;   p: longint; begin   write('введите четырехзначное число: '); read(n);   write('введите число для проверки кратности: '); read(a);   p: =1;   for i: =1 to 3 do   begin       p: =p*(n mod 10);       n: =n div 10   end;   p: =p*n;   if (p mod a)=0 then writeln('число кратно ',a)   else writeln('число не кратно ',a) end. тестовое решение: введите четырехзначное число: 3673 введите число для проверки кратности: 7 число кратно 7

1)m(hcl)=50*0.292=14.6г

2)n(hcl)=m/m=14.6/36.5-=0.4моль

3)n(оксида металла)=0,4/2=0,2

4)m(оксида металла)= 8/0,2=40

5)раз металл двухвалентен, то значит формула - meo, следовательно вычти из молярной массы оксида массу кислорода

м(металла)=40-16=24

следовательно, mgo 

 

 

a*b*i=i

n=2^i

где a*b-размер изображения, n-количество цветов,i-количество памяти на один пиксел, i-вес рисунка(бит)

1)64*64*i=512*8

i=1

n=2

ответ: 2

2)256=2^i

i=8

a*b*8=2400*8

a*b=2400

ответ: 2400

3)n1=4=2^2

i1=64*128*2=2^14бит=2кбайт

n2=16=2^4

i1=32*32*4=2^12бит=0,5кбайт

ответ: на первое изображение потребуется в 4 раза больше места