Набрать 8л во 2 кувшин (0+8=8) [0:8]
Перелить из 2 кувшина в 1 кувшин (8-3=5) [3:5]
Вылить 1 кувшин (3-3=0) [0:5]
Перелить из 2 кувшина в 1 кувшин (5-3=2) [3:2]
Вылить 1 кувшин (3-3=0) [0:2]
Перелить из 2 кувшина в 1 кувшин (2-2=0) [2:0]
Набрать 8л во 2 кувшин (0+8=8) [2:8]
Перелить из 2 кувшина в 1 кувшин (8-1=7) [3:7]
Вылить 1 кувшин (3-3=0) [0:7]
Вот у нас и получилось, что во 2 кувшине 7 литров воды
16 цветов - значит, каждый пиксель кодируется 4 битами информации (2^4 = 16), всего 800*600*4 = 1920000 бит = 240000 б = 234 кб
Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(71)-30;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Write('Номер столбца: ');
For j:= 1 to N do
Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j]>0 then k:=k+1;
Write(k:3,' ');
End;
End.
Пример:
Исходный массив:
33 -21 -24 4
-20 28 -29 25
-15 -1 11 3
Номер столбца: 1 2 3 4
Искомое кол-во: 1 1 1 3
<em><u>Пусть начальное двузначное число равно X. Тогда полученное трехзначное число будет равно 200 + X. Зная, что полученное число в 9 раз больше, составим и решим уравнение:</u></em>
<em>200 + X = 9 * X</em>
<em>8 * X = 200</em>
<em>X = 25</em>
<u>Ответ: 25</u>
Program n1;
var n,sum,p: integer;
begin
readln(n);
sum:=0;
p:=1;
while n<>0 do
begin
sum:=sum+n mod 10;
p:=p*(n mod 10);
n:= n div 10;
end;
writeln('сумма цифр: ',sum);
write('произведение: ',p);
end.