R5. Ru
Безззззз
Пробелааааааааа
Var x,y:integer;
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7
1 группа лишнее Home
2 группа лишнее F1
3 группа лишнее F12
4 группа лишнее *
Думаю так.
A=>B(импликация) =(равно) неA+B