Алгоритм:
1 цифра числа + 2 цифра числа - 1.
Вход / Выход
91 / 9
80 / 7
73 / 9
20 / 1
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
<u>Результат</u>
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7
(¬A v B) /\ (B v ¬C)
(¬A + B) & (B + ¬C)
¬AB + ¬A¬C + BB + B¬C
¬AB + ¬A¬C + B + B¬C
(¬AB + B) + B¬C + ¬A¬C
(¬A + 1)B + B¬C + ¬A¬C
B + B¬C + ¬A¬C
B(1 + ¬C) + ¬A¬C
B + ¬A¬C
ИСПОЛЬЗУЕМЫЕ ФУНКЦИИ ДЛЯ ВЕСА MAX, для роста счет - общее количество уч-ся и счетесли для выборки по условию, округление до 2х знаков