Пусть Х - стоит собака, то корова - 4Х, а значит лошадь 4(4Х)=16Х.
Имеем:
Х + 4Х + 16Х = 210р
21Х=210р
Х=10р
Ответ:
Собака стоит 10р; корова 4*10=40р; лошадь 16*10=160р
Var ma:array of array of integer;
ar:array of integer;
i,k,j,n,m:integer;
begin;
randomize;
readln(n);
readln(m);
k:=0;
setlength(ar,m+1);
setlength(ma,n+1);
for i:=1 to n do
setlength(ma[i],m+1);
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to m do
begin;
ma[i,j]:=random(21)-10;
write(ma[i,j]:4);
end;
end;
for i:=1 to m do
begin;
for j:=1 to n do
if ma[j,i]>0 then inc(k);
ar[i]:=k;
k:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to m do
write(ar[i]:4);
<span>end.</span>
Var
A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=A div 100;
A:=A mod 10;
if B>A then WriteLn('Количество сотен больше')
else if B<A then WriteLn('Количество единиц больше')
else WriteLn('Количества сотен и единиц равны')
End.
Инверсии не вижу, поэтому так: 1. конъюнкция; 2. импликация; 3. Объединяешь решения.
Решение не возможно. Должно быть условие сколько бит до перекодирования в кодировке было. Проверь условие