Составляем таблицу, в которой на пересечении строки и столбца будем ставить X, если такая комбинация невозможна, и V, если мы определили профессию. У меня будет также написан номер утверждения, в соответствии с которым ставился этот значок:
- <em>Петров и Гришин никогда не держали в руках малярной кисти</em> - значит, Петров и Гришин - не маляры.
- <em>Иванов и Гришин все собираются посетить мельницу, на которой работает их товарищ </em>- Иванов и Гришин - не мельники.
- <em>Петров и Иванов живут в одном доме с почтальоном </em>- Петров и Иванов - не почтальоны.
- <em>Иванов и Сидоров каждое воскресенье играют в городки с плотником и маляром</em> - Иванов и Сидоров - не плотники и не маляры.
- <em>Петров брал билеты на футбол для себя и мельника</em> - Петров - не мельник.
- У Иванова остается только вариант быть парикмахером, остальные - не парикмахеры.
- Петров - плотник, остальные не плотники
- Гришин - почтальон, остальные не почтальоны
- Сидоров - мельник, Алексеев - не мельник
- Алексеев - маляр
Ответ: Иванов - парикмахер, Петров - плотник, Гришин - почтальон, Сидоров - мельник, Алексеев - маляр
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
На сколько я знаю, надо просто все перемножить
<span>Al:=sqr (a) ⇒ integer
A2:=16 mod 5 ⇒ integer
A3:=sqr (b) ⇒ real
A4:=2.5*a ⇒real
A5:=5 div 1/3 ⇒ real
A6:=a-A1 ⇒ integer
A7:a>b ⇒ boolean
A8:=A2/b
</span>⇒ real
Вред это то что ребенок ниче неделает сидит в интернете днями иночами портит зрение дети заходят на взрослые сайты родители забывают детях и седят в соц сетях пользат это што дети могут смотреть уроки общатся с друзьями и тд