Составляем таблицу, в которой на пересечении строки и столбца будем ставить X, если такая комбинация невозможна, и V, если мы определили профессию. У меня будет также написан номер утверждения, в соответствии с которым ставился этот значок:
- <em>Петров и Гришин никогда не держали в руках малярной кисти</em> - значит, Петров и Гришин - не маляры.
- <em>Иванов и Гришин все собираются посетить мельницу, на которой работает их товарищ </em>- Иванов и Гришин - не мельники.
- <em>Петров и Иванов живут в одном доме с почтальоном </em>- Петров и Иванов - не почтальоны.
- <em>Иванов и Сидоров каждое воскресенье играют в городки с плотником и маляром</em> - Иванов и Сидоров - не плотники и не маляры.
- <em>Петров брал билеты на футбол для себя и мельника</em> - Петров - не мельник.
- У Иванова остается только вариант быть парикмахером, остальные - не парикмахеры.
- Петров - плотник, остальные не плотники
- Гришин - почтальон, остальные не почтальоны
- Сидоров - мельник, Алексеев - не мельник
- Алексеев - маляр
Ответ: Иванов - парикмахер, Петров - плотник, Гришин - почтальон, Сидоров - мельник, Алексеев - маляр
350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
прогони программу пошагово в PascalABC, поймешь как все работает.
Program n1;
Uses CRT;
Const n=20;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite massiv');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
If a[i]<0 then a[i]:=a[i]*(-5)
else if a[i]>0 then a[i]:=a[i]*20
else a[i]:=1000;
For i:=1 to n do
write(a[i]:5);
readln
end.